Sub Unprotect()
top:
Dim ws As Worksheet
pass = InputBox("password?")
repass = InputBox("Verify Password")
If Not (pass = repass) Then
MsgBox "you made a boo boo"
GoTo top
End If
For Each ws In Worksheets
ws.Unprotect Password:="pass"
Next ws
End Sub