Password Protection Problem

[joeeoj]

Hi, recently I needed a way to unprotect all worksheets at once. I was given the idea to create a userform with the following code:

Private Sub CommandButton1_Click()
    'unprotect worksheets
 
    For Each Worksheet In Worksheets
 
    If Worksheet.ProtectContents = True Then
    Worksheet.Unprotect Password:=TextBox1.Text
    End If
 
    Next Worksheet
 
    MsgBox "Workbook will be re-protected upon exit."
 
    Unload Me
End Sub

This works great, but if the password entered is wrong, a Run-time error '1004' occurs. Is there any way that a message saying "Incorrect Password" comes up instead of this error?

Thanks!

 

[doofusboy]

You could try something like this:

Private Sub CommandButton1_Click()
    'unprotect worksheets
 
    [B][COLOR=red]On Error GoTo ErrHandler[/COLOR][/B]
    For Each Worksheet In Worksheets
 
    If Worksheet.ProtectContents = True Then
    Worksheet.Unprotect Password:=TextBox1.Text
    End If
 
    Next Worksheet
 
    MsgBox "Workbook will be re-protected upon exit."
 
    Unload Me
[COLOR=red][B]ErrHandler:
    If Err.Number = 1004 Then
        MsgBox "Incorrect Password"
    End If[/B][/COLOR]
End Sub

 

[joeeoj]

That worked perfectly, thanks so much!