Poner cartel con leyenda cada vez que una macro tira error 1004

[agiofede]

Hola, tengo una macro que desprotege ciertas celdas, cuando apreto la misma, primero te pregunta la contrasena. Pero necesito que cada vez que la contrasena es incorrecta no me tire error 1004 sino un cartel que diga contrasena incorrecta. Cree la siguiente macro pero no me funciona:

Sub Desproteger()

'

' Desproteger Macro

'

' On Error GoTo Errhandler

ActiveSheet.Unprotect

Sheets("OP").Select

ActiveSheet.Unprotect

Sheets("NP").Select

Range("F11").Select

Exit Sub

Errhandler:

MsgBox "No dijiste la palabra magica", vbOKOnly, "Error"

Exit Sub

End Sub

Que debo hacer para que funcione? Desde ya muchas gracias =)

[Antoni]

Que debo hacer para que funcione?

Subir el archivo e indicar las passwords correspondientes a cada una de las hojas.

[agiofede]

gracias x tu pronta respuesta Macro pero el archivo no lo subí xq pesa demasiado, = el pass es "pepito"

[mjrofra]

Además de lo que ya te indicó el maestro macro, parece que tienes comentada la línea On Error Goto Errhandler, con dicha línea comentada el código nunca irá a la etiqueta Errhandler cuando se presente un error.

Una opción de lo que buscas, un poco más elaborada, podría ser algo así:

Sub Desproteger()
     '
     ' Desproteger Macro
     '


    On Error GoTo Error_Desproteger

    ActiveSheet.Unprotect
    Sheets("OP").Select
    ActiveSheet.Unprotect
    Sheets("NP").Select
    Range("F11").Select


Salir_Desproteger:
    Exit Sub



Error_Desproteger:

    If Err.Number = 1004 Then

        If MsgBox("No dijiste la palabra magica" & _
                  vbCrLf & _
                  vbCrLf & _
                  "¿Desea volver a intentar?", vbYesNo, "Error") = vbYes Then

            Resume

        Else

            Resume Next

        End If

    Else

        MsgBox "Error " & Err.Number & ": " & Err.Description

        Resume Salir_Desproteger

    End If

End Sub

[agiofede]

Si, lo prové pero no me funciono, me tiró lo mismo de siempre, el cartel de error 1004 con el finalizar o depurar...