HELP!!!!

[Scruffymessiah]

I have been trying to unprotect a workbook by assigning the following to a button. The top code is for protecting the lower one for unprotecting. The top works and the bottom throws up errors. Can anyone help? I am new to VBA.

Sub Protect()
Dim theWord As String
theWord = InputBox("Please enter the password")
If theWord <> "lock" Then
MsgBox ("Sorry, you have entered the wrong password"), vbCritical
Exit Sub
End If


ActiveWorkbook.Protect Password:="lock", Structure:=True, Windows:=False
ActiveSheet.Protect Password:="lock", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub


Sub unprotect_sheets()
Dim theWord As String
theWord = InputBox("Please enter the password")
If theWord <> "unlock" Then
MsgBox ("Sorry, you have entered the wrong password"), vbCritical
Exit Sub
End If


ActiveWorkbook.unprotect_sheets Password:="unlock", Structure:=False, Windows:=True
ActiveSheet.unprotect_sheets Password:="unlock", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

 

[DonkeyOte]

You have different passwords for protecting and unprotecting and they need to be the same.

 

[Andrew Poulsom]

Well if it's protected with the word "lock" it needs to be unprotected with the word "lock", not "unlock".

 

[Scruffymessiah]

I just tried making them the same but to no avail. The error states that:

"Run-time error 438
Object does not support this property or method"

?

 

[Andrew Poulsom]

unprotect_sheets should be Unprotect.

 

[Scruffymessiah]

Here's what I have now:

Sub Unprotect()
Dim theWord As String
theWord = InputBox("Please enter the password")
If theWord <> "lock" Then
MsgBox ("Sorry, you have entered the wrong password"), vbCritical
Exit Sub
End If


ActiveWorkbook.Unprotect Password:="lock", Structure:=True, Windows:=False
ActiveSheet.Unprotect Password:="lock", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub


The error now is:

Compile error.
Named argument not found.

It seems to refer to:"Structure:="

Sorry about this.....I will buy a book on VBA...promise!!

 

[Andrew Poulsom]

Unlike Protect, Unprotect has only one argument (Password). So:

ActiveWorkbook.Unprotect Password:="lock"
ActiveSheet.Unprotect Password:="lock"

No need for a book. Just use Help - put the cursor on the word in your code and press F1.

 

[Scruffymessiah]

Thank you.