protecting, unprotecting workbook macro error

[mike_ate_a_pie]

i have this code found on the net for protecting/unprotecting my workbook, however i am unable to work out the password, i have tried Password Input and changing it to other passwords but cant figure out what i'm missing.

sure it must be simple but just cant see it,

any help appreciated

thanks


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 </pre>

 

[Andrew Poulsom]

What did you enter as the password when you first ran ProtectAll?

 

[mike_ate_a_pie]

i havent ran the Protect ALl this was copied from another help website.

is there a alternative way to do this?

cheers

 

[Andrew Poulsom]

So what are you trying to do? Are your worksheets protected with a password?

 

[mike_ate_a_pie]

I am trying to protect the entire workbook from being edited.

I would like to include one button to protect the workbook and another for unprotecting the workbook and allowing the user to make changes. With both buttons being password protected with the same password.

Hope this helps

thanks

 

[Andrew Poulsom]

So assign ProtectAll and UnProtectAll to your buttons. Click the one for ProtectAll. Be sure to remember the password you entered. Then click the one for UnProtectAll and enter the password.

 

[mike_ate_a_pie]

cool, i've now got it to work , however is there any way to stop the unprotect macro scanning through every worksheet, even if it paused on the same page as this would appear a lot more professional.

thanks

 

[GTO]

Application.ScreenUpdating=False before the loop, and change back to True after the loop.

 

[mike_ate_a_pie]

Sweeeeeeeeet, i love it! cheers

 

[mike_ate_a_pie]

Hi again,

I just realsied that when i protect my sheet for some reason some macro buttons still work which is desired but others dont and come up as needing debugged! Is there any reason for this and how can I make the macro buttons work when the sheet is protected?

Thanks

Mike