InputBox OK and Cancel Button Problem

[mackypogi]

I have this macro code that can protect and unprotect, It will show the input box and ask for a password. my problem is when I choose cancel, it still protect the file, the same thing with my unprotect code. here is my code below

Protect Code

Sub ProtectAll()
      
    Dim wSheet          As Worksheet
     Dim Pwd             As String
      
    Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
     For Each wSheet In Worksheets
         wSheet.Protect Password:=Pwd
     Next wSheet
      
End Sub

UnProtect Code

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