Macro to protect and Unprotect a worksheet

[pincivma]

Hi there

I have this code to protect and un-protect a worksheet

ActiveSheet.Unprotect Password = "test"
Code goes here
.
.
.
ActiveSheet.Protect Password = "test"

End Sub

Here is the problem. When I run the code, it runs just fine. But when I manually try to un-protect the worksheet I get the usual pop up to enter my password. When I enter my password "test" without the quotes I get a pop up that says "The password you supplied is not correct......" But id did supply the correct password. So what did I do wrong??

 

[Tetra201]

Try

ActiveSheet.Protect Password[COLOR=#FF0000]:[/COLOR]="test"

 

[pincivma]

Your code does not work since my macro gets a bug right on the line
ActiveSheet.Protect Password:="test"

My code does not generate a bug and my macro runs just fine. So back to square 1

 

[Tetra201]

The following code has been tested to work with Excel 2010 and 2013:

Sub Test()
    If ActiveSheet.ProtectContents Then
        ActiveSheet.Unprotect Password:="test"
        MsgBox "Sheet unprotected (Password: test)"
    End If
    If Not ActiveSheet.ProtectContents Then
        ActiveSheet.Protect Password:="test"
        MsgBox "Sheet protected (Password: test)"
    End If
End Sub

 

[pincivma]

Thanks
I will give that a try sometime tomorrow and get back to you to see if it worked or not