I am using the following VBA code to password lock multiple sheets in my excel spread sheet.
pass = InputBox("password?")
repass = InputBox("Verify Password")
If Not (pass = repass) Then
MsgBox "you made a boo boo"
For i = 1 To Worksheets.Count