Excel VBA Macro - Unprotect All sheets after user provide password in the Input Box

Sub UnProtectAll()

    

    Dim wSheet          As Worksheet

    Dim Pwd             As String

   

    Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")

    On Error Resume Next

    For Each wSheet In Worksheets

        wSheet.Unprotect Password:=Pwd

    Next wSheet

    If Err <> 0 Then

        MsgBox "You have entered an incorect password. All worksheets could not " & _

        "be unprotected.", vbCritical, "Incorect Password"

    End If

    On Error GoTo 0

    

End Sub