Unprotect All Sheet

[RandyD123]

I am currently using the code below. I want to stop the "vbCritical" error if I CANCEL the password input box. I would like it to just exit and do nothing. What am I missing?

 Sub UnProtectAll()
 
     'Use Ctl+Shift+U To Unlock All Sheets
     
    Dim ws As Worksheet
    Dim strPwd As String
    Dim strCheck As String
Application.ScreenUpdating = False
   strCheck = "mypassword"
     strPwd = InputBox("Enter Password", "Password", "Enter Password")
If strPwd = strCheck Then
  For Each ws In ThisWorkbook.Worksheets
     ws.Unprotect Password:=strPwd
  Next ws
  Else
        MsgBox "Incorrect Password", vbCritical, "Incorrect Password"
  End If
Application.ScreenUpdating = True
End Sub

Thanks in advance!!

 

[FormR]

Hi, you could try adding this line directly after the strpwd = inputbox(.. line of code.

If strPwd = "" Then Exit Sub

 

[RandyD123]

no that didn't work....

 

[FormR]

no that didn't work....

Hi, that really doesn't give us a lot to go on to help you troubleshoot!

Can you post your amended code?

 

[RandyD123]

Hi, that really doesn't give us a lot to go on to help you troubleshoot!

Can you post your amended code?

 Sub UnProtectAll()
 
     'Use Ctl+Shift+U To Unlock All Sheets
     
    Dim ws As Worksheet
    Dim strPwd As String
    Dim strCheck As String
Application.ScreenUpdating = False
   strCheck = "mypassword"
     strPwd = InputBox("Enter Password", "Password", "Enter Password")
If strPwd = "" Then Exit Sub
  For Each ws In ThisWorkbook.Worksheets
     ws.Unprotect Password:=strPwd
  Next ws
  Else
        MsgBox "Incorrect Password", vbCritical, "Incorrect Password"
  End If
Application.ScreenUpdating = True
End Sub

I errors out right away with the modified "If strPwd = strCheck Then"

 

[FormR]

I errors out right away with the modified "If strPwd = strCheck Then"

Hi, I didn't suggest that you modify any lines of code - I suggested that you should add a new line.

 

[RandyD123]

Yep, that worked. Sorry for not understanding the first reply. Thank You!!!