Use an InputBox statement to prompt the user, like so:

Sub UnlockAllWorksheets()
Dim strPassword As String
Dim ws As Worksheet

strPassword = InputBox("Enter the password for all worksheets: ", _
"Unlock Worksheets")

For Each ws In ActiveWorkbook.Worksheets
ws.Unprotect password:=strPassword
Next ws
End Sub
--
Regards,
Bill Renaud