Macro to unprotect worksheet not working

[phad012]

Hi,

I'm sure there is a simple solution, but I've been Googling this for almost an hour.

I need a macro to unprotect, then re-protect, a worksheet. The following doesn't seem to work:

Sub Unprotect ()

ActiveSheet.Unprotect Password: "my password typed here"

End sub

When I run the macro, the following error pops up:

Run-time error '1004'
Application-defined or object-defined error

I think I'm using Excel 2013.

I checked to make sure the password is correct a number of times, and also checked the correct sheet was being selected.

Many thanks

 

[phad012]

Sorry the code should read:

ActiveSheet.Unprotect Password: ="my password typed here"

I missed the '=' sign in my post

 

[Smitty]

This should work fine:

ActiveSheet.Unprotect Password:="PasswordHere"

But if you want to shorthand it, you don't need the Password qualifier:

ActiveSheet.Unprotect "PasswordHere"

You might want to check the quotes, VBA often doesn't like them when they're copied from browsers.

EDIT: That code won't care what version you're on, but if you're not sure, you can go to File > Account to check.

HTH