Poner cartel con leyenda cada vez que una macro tira error 1004
publicado
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 =)
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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 =)