VBA for protecting worksheets

[skydive]

Excel 2003. I have a workbook w/14 worksheets. I want to protect all sheets at one time. I'm using the following code, but I want to change the password. What do I need to do via VBA to customize a password?

Code is:

Option Explicit

Sub ProtectAll()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
For Each wSheet In Worksheets
wSheet.Protect Password:=Pwd
Next wSheet

End Sub

Sub UnProtectAll()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Pwd
Next wSheet
If Err <> 0 Then
MsgBox "You have entered an incorect password. All worksheets could not " & _
"be unprotected.", vbCritical, "Incorect Password"
End If
On Error Goto 0

End Sub

 

[dk]

Hi

Do you mean that you want the password hard-coded rather than have the inputbox? If so, you should be able to use something like this:

Sub ProtectAll()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = "yourpassword"

For Each wSheet In Worksheets
wSheet.Protect Password:=Pwd
Next wSheet

End Sub

 

[skydive]

I don't mind using the original code in order to protect/unprotect all at once...I just wanted to change the current password to mine that's all. Your code looks a bit easier though. What about code for unprotecting sheets all at once?