Duda macro
Hola que tal, tengo un problema con una macro y ojala que puedas ayudarme...
Tengo un archivo de excel y trate de hacer unas macros para proteger la hoja, ejecuto la macro de proteger y no hay problema pero cuando ejecuto la macro para desproteger la hoja le indiqué que pusiera la contraseña pero quiero que cuando la contraseña sea incorrecta aparezca algún mensaje personalizado por mi. De antemano gracias por tu ayuda
Mira esta son las macros
Sub pro()
Protect ("pro")
End Sub
Sub des()
Unprotect InputBox("FAVOR DE INTRODUCIR LA CONTRASEÑA")
End Sub
Tengo un archivo de excel y trate de hacer unas macros para proteger la hoja, ejecuto la macro de proteger y no hay problema pero cuando ejecuto la macro para desproteger la hoja le indiqué que pusiera la contraseña pero quiero que cuando la contraseña sea incorrecta aparezca algún mensaje personalizado por mi. De antemano gracias por tu ayuda
Mira esta son las macros
Sub pro()
Protect ("pro")
End Sub
Sub des()
Unprotect InputBox("FAVOR DE INTRODUCIR LA CONTRASEÑA")
End Sub
1 Respuesta
Respuesta de fejoal
1
Esto son los códigos que necesitas:
Sub pro()
ActiveSheet.Protect Password:="pro"
End Sub
Sub des()
On Error Resume Next
ActiveSheet.Unprotect
If Err <> 0 Then
MsgBox "FAVOR DE INTRODUCIR LA CONTRASEÑA", vbCritical, "Clave incorrecta"
End If
End Sub
Esta muestra un mensaje de error y sale de la macro para que intente nuevamente.
El inputbox serviría si quieres que ingrese la clave en una variable que luego se usaría con la instrucción Unprotect, pero sería visible mientras se tipea. Prefiero mantener la funcionalidad propia de la ventana standard de MS Excel.
aclarando qué entendí mal o qué faltó.
Sub pro()
ActiveSheet.Protect Password:="pro"
End Sub
Sub des()
On Error Resume Next
ActiveSheet.Unprotect
If Err <> 0 Then
MsgBox "FAVOR DE INTRODUCIR LA CONTRASEÑA", vbCritical, "Clave incorrecta"
End If
End Sub
Esta muestra un mensaje de error y sale de la macro para que intente nuevamente.
El inputbox serviría si quieres que ingrese la clave en una variable que luego se usaría con la instrucción Unprotect, pero sería visible mientras se tipea. Prefiero mantener la funcionalidad propia de la ventana standard de MS Excel.
aclarando qué entendí mal o qué faltó.
