Password Protection not accepting password

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?