Desbloquear hojas mediante macros en excel

Hola a todos los expertos, necesito su ayuda.
Tengo un libro con varias hojas las cuales están bloqueadas y ocultas mediante un macro (para que no se puedan mostrar desde el menu Formato)
Para lo que he creado un botón que al hacer clic en este, me pide la contraseña y me muestra las hojas. Pero si cuando me pide la contraseña hago clic en cancelar, me muestra igual las hojas, aunque sin desbloquear.
¿Es posible evitar que pase eso cuando hago clic en cancelar?
Les Adjunto el código para que se orienten mejor.
Sub Botón36_AlHacerClic()
On Error GoTo tratar_errores
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Application.EnableCancelKey = xlDisabled
Worksheets("principal").Visible = True
Worksheets("programacion").Visible = True
Worksheets("data").Visible = True
Worksheets("plan atc").Visible = True
Worksheets("caratula").Visible = True
Worksheets("portada").Visible = True
Worksheets("cerrando").Visible = True
ActiveWindow.ScrollColumn = 1
Application.EnableCancelKey = xlInterrupt
Application.ScreenUpdating = True
Exit Sub
tratar_errores:
MsgBox "CONTRASEÑA INCORRECTA, COMPRUEBE [BLOQUEO MAYUSCULAS] E INTENTE DE NUEVO.", vbExclamation, "ATENCION"
End Sub
Desde ya muchas gracias por su tiempo.
Saludos
Respuesta
1
Te dejo las instrucciones que te faltan. El mensaje de error que se encuentra al final debieras cambiarlo por otro, ya que se llegará allí cuando erra otro aspecto, como por ejemplo que no exista una hoja con algunos de esos nombres.
Sub Botón36_AlHacerClic()
miclave = InputBox("Ingresa tu clave")
If miclave <> "emilia" Then
MsgBox "CONTRASEÑA INCORRECTA, COMPRUEBE [BLOQUEO MAYUSCULAS] E INTENTE DE NUEVO.", vbExclamation, "ATENCION"
Exit Sub
End If
'a continuación sigue tu rutina
On Error GoTo tratar_errores
ActiveSheet.Unprotect
'.....
Sdos
Elsa
Para no perder tiempo, lo ideal es trabajar con algún buen manual !
http://aplicaexcel.galeon.com/manuales.htm
Un millón de gracias, como siempre tus respuestas perfectas y justas.
Se que para no perder tiempo hay que tener un buen manual, pero cuando uno hace un trabajo para su empresa, la cual no le paga nada por hacerlo a uno, y aun tienes que invertir dinero propio para conseguir eso. No tengo más remedio que molestarlos a ustedes los expertos.
Saludos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ocultar contraseña en macro

Tengo un archivo al cual le inserte una macro de apertura, que al abrir me pide contraseña, pero al digitarla muestra la contraseña, ¿Cómo hago para ocultarla? ¿Cómo hago para que al abrir esta me abra en una hoja especifica?
1 respuesta

Como crear una macro de inicio

Disculpa que te moleste, lo que pasa es que apenas estoy aprendiendo a manejar excel y en la escuela me dejaron un trabajo y consiste en lo siguiente: Tengo que crear una macro en la cual antes de entrar al libro ponga o muestre un formulario en...
1 respuesta

Proteger hojas de excel con macros

Mi problema es como puedo desproteger y proteger una hoja de excel automáticamente con una macro cuando esta se ejecute y realice una tarea, ya lo hice de una forma la protege pero no permite asignarle valores a la contraseña, lo que quiero es poner...
2 respuestas

Macro de usuario y contraseña

Necesito un favorsote. Lo que pasa es que quiero una macro donde al introducir su nombre de usuario y contraseña les de acceso al libro de excel. Me gustaría que esta ontraseñas estuvieran en una hoja de excel y saber cuando entro uno de ellos. ¿Se puede?
2 respuestas

Ocultar barra de titulo excel 2007

Como podría ocultar la barra de titulo en 2007 Tengo la sig aplicasion la cual me funciona bien en 2003 pero en 2007 no me oculta la barra de titulo Dim bState As Boolean Dim sStart As Single Sub FullScreenON() On Error Resume Next sStart = True...
2 respuestas

¿Cómo originar usuarios y contraseñas en excel?

Necesito poner en red una aplicación de excel para 4 usuarios, los cuales tendrán acceso a ella pero cada uno tendrá sus limitaciones, osea, cada uno de estos usuarios tendrá solo permiso para algunas modificaciones de celdas, formatos, etc. Y al...
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Bloqueo para que no se vean hojas en excel

Tengo un archivo de Excel en el cual tengo 3 hojas y solo quiero que se vea la primera, un amigo me enseñó una secuencia en visual basic pero me marga que es incorrecta, ¿Me podrían ayudar por favor? Anexo secuencia Private Sub Workbook_Open()...
1 respuesta