Password Protection not accepting password

Hi there,

Can anyone spot why this code doesn't work. It runs, but will not accept the password I set, which for testing was a simple lower case "hello" placed in A1 on sheet 4.

Private Sub Button2_Click()
    Dim Pswd As String
    Pswd = Sheet4.Cells(1, 1)
    
    Sheet1.Protect Password:=Pswd, UserInterFaceOnly:=True
End Sub

Kind regards

Rob

Pswd = Sheets("Sheet4").Cells(1, 1).Value
Sheets("Sheet1").Protect Password:=Pswd, UserInterFaceOnly:=True

To clear something up, to unlock the sheet, I am going -Review Tab - Unprotect Sheet and then entering the same password that is being pointed at. This code works so long as I type in the password into the script, but not if I try to reference it on a cell somewhere. i can't get this to work even if the password is on a cell on the same sheet that is right in front of me.

What am I doing wrong here please?

Sorry I was wrong, it doesn't work at all, not even with a password. I beleive the syntax is right, but I guess I am not putting it in the right place. but right now my only way of editing this sheet now is deleting it and starting again, that is not really what I want it to do.

Hmm, no that doesn't work either, I wonder what I am doing wrong.

Use below code to unlock the sheet.

Sub test()
Pswd = Sheets("Sheet4").Cells(1, 1).Value
Sheets("Sheet1").Unprotect Password:=Pswd
End Sub

And try this code to lock, just to make sure you are referring to correct cell.

Sub test1()
Pswd = Sheets("Sheet4").Cells(1, 1).Value
MsgBox "password is - " & Pswd
Sheets("Sheet1").Unprotect Password:=Pswd
End Sub

Ah, ok, so I need to unlock it with a script, I can't use the ribbon?

You can unlock using ribbon provided you know the password used to protect. Since I am doubting you are not referring to a cell you think you are, above code would exactly get the password used to lock.

Thank you haripopuri, this does work, yet not with the ribbon, it will only unlock via script. Could that be a bug in the program, or do you have to specify that you want to be able to use the ribbon?

Unfortunately no, I can't upload the workbook as I am at work, all I did was open a new workbook, add an extra worksheet so there was a worksheet 4 in there, then I used this script and run them as needed to get an idea of what was working or not. I am running windows 7 using microsoft office 2007 enterprise.

Option Explicit

Dim Pswd As String

Private Sub testing()
    Pswd = Sheets("Sheet4").Cells(1, 1).Value
    Sheets("Sheet1").Protect Password:=Pswd, UserInterFaceOnly:=True
End Sub

Sub test1()
    Pswd = Sheets("Sheet4").Cells(1, 1).Value
    MsgBox "password is - " & Pswd
    Sheets("Sheet1").Unprotect Password:=Pswd
End Sub

Sub test()
    Pswd = Sheets("Sheet4").Cells(1, 1).Value
    Sheets("Sheet1").Unprotect Password:=Pswd
End Sub

Kind regards

Rob

Ok lets do this. Run below macro once and notice the message box that appear after you run this macro What does it say...

Sub testing()
    Pswd = Sheets("Sheet4").Cells(1, 1).Value
Msgbox Pswd
    Sheets("Sheet1").Protect Password:=Pswd, UserInterFaceOnly:=True
End Sub

and what happen when you use the same password shown in the box from ribbon to unlock?

No, I did check for that I even typed the password (which in this case was "One") into another cell then copied and pasted it, though that didn't work, as I was unable to paste into the password box, but it would have flagged up a caps lock issue if that had been the case.

Hi, hopefully, I have successfully attached this for you.

Regards

Rob

Wow, that is very astute to spot that one, thank you so much, yes it all works well now, it must be my dyslexic thumb being a little over keen on the space bar.

Phew. It got me worried for a while.