VBA to unlock sheet

[jimmytiler]

I have used vba code to lock the sheet, however, when I use the 'Unlock' code it seems to unlock the sheet regardless of the password being correct??

Sub LockSheet()

Dim WS As Worksheet
Set WS = Worksheets("Sheet1")

WS.Protect Password:="123456"
MsgBox "Data is locked"

End Sub

Sub UnlockSheet()

Dim WS As Worksheet
Set WS = Worksheets("Sheet1")

Ws.Unprotect Password:=InputBox("Enter password")

MsgBox "Data is unlocked"

End Sub

 

[StephenCrump]

Are you sure Sheet1 is protected, with a password, before you run UnlockSheet?

If you run UnlockSheet, and get the message "Data is unlocked" no matter what password you enter, this implies that Sheet1 was not protected, or that Sheet1 was protected but without a password.

 

[Peter_SSs]

Have you tried closing right out of Excel and then start up again?

In any case, with that code, if you provide an incorrect password the code should actually error like this (so your code really needs some method to deal with that circumstance)