UnProtecting Sheets Tracking Errors

[ptmuldoon]

I'm trying to create a few macros that will password protect all worksheets (not the workbook), and then also be able to unprotect them.

In working on the unprotect, I want to be able to identify how many worksheets were not unprotected if the wrong password was given. But for some reason, I can not get the msgbox to display at the end of the code to tell how many sheets were not unprotected.

The below will show a msgbox during the loop. But does not show it at the end?

Sub UnprotectSheets()
    Dim wsheet As Worksheet
    Dim pword As String
    Dim x As Long
    
    pword = InputBox("Enter Password", "Enter a Password")
    If pword = "" Then
        MsgBox ("No password provided")
        Exit Sub
    Else
        x = 0
        On Error Resume Next
        For Each wsheet In ActiveWorkbook.Worksheets
            wsheet.Unprotect Password:=pword
            If Err.Number <> 0 Then
                x = x + 1
                 MsgBox ("Incorrect Password")
            End If
         Next wsheet
         MsgBox x & (" worksheets could not be UnProtected")
    End If
    
    On Error GoTo 0
End Sub

Edit.......found the typo and fixed. The above code now will process properly.

[Zer0Cool]

Try:

MsgBox x & "Worksheets could not be UnProtected"

[ptmuldoon]

Thanks for the help and I think corrected that typo at same time you were posting yesterday. But I'm struggling to get the end result I'm looking for.

The below code is suppose to loop through the worksheets and when done give 2 message boxes. The first tells the user which sheets were not unlocked (ie, wrong password), and the 2nd message then tells the user which sheets were successfully unlocked. Yet, it keeps telling me ALL were not unlocked when the indeed some were.

Sub UnprotectSheets()
    Dim wsheet As Worksheet
    Dim pword As String, msg As String, msg2 As String
    
    pword = InputBox("Enter Password", "Enter a Password")
    If pword = "" Then
        MsgBox ("No password provided")
        Exit Sub
    Else
        On Error Resume Next
        For Each wsheet In ActiveWorkbook.Worksheets
            wsheet.Unprotect Password:=pword
            
            If Err.Number <> 0 Then
                 msg = msg & wsheet.Name & vbCrLf
            ElseIf wsheet.ProtectContents = False Then
                msg2 = msg2 & wsheet.Name & vbCrLf
            End If
            
         Next wsheet
    End If
    
    If Len(msg) > 0 Then
        MsgBox "The following worksheets are protected under a different password and were not unlocked" & _
        vbCrLf & msg, 64, "Notification"
    End If
    
    If Len(msg2) > 0 Then
        MsgBox "The following worksheets were unlocked" & _
        vbCrLf & msg2, 64, "Notification"
    End If
    
    
    
    On Error GoTo 0
End Sub

[ptmuldoon]

Success!!

I think I need to check if the worksheet is still locked. The below seems to work:

If wsheet.ProtectContents = True And Err.Number <> 0 Then
                msg = msg & wsheet.Name & vbCrLf
            ElseIf wsheet.ProtectContents = False Then
                msg2 = msg2 & wsheet.Name & vbCrLf
            End If