Mostrar y ocultar hojas, utilizando macros

En otras entregas, habíamos visto como proteger un libro de excel mediante la solicitud de un password, a través de un Inputbox, como proteger y desproteger hojas de cálculo sin macros, y como proteger y desproteger hojas de cálculo con macros. Hoy nos centraremos en como mostrar u ocultar hojas de cálculo, si se introduce correctamente o no, la contraseña solicitada.

Para usar el ejemplo de hoy, podíamos haber diseñado un Userform bien bonito, donde se le pidiera al usuario un password cada vez que quiere acceder a una hoja de cálculo determinada, pero para simplificarlo, he optado por utilizar un Inputbox, que nos hará las mismas funciones, con menos código, y con menos trabajo de “diseño”.

En este artículo, he incluido dos formas diferentes para proteger una hoja de cálculo. En el primer caso, el más sencillo, consiste en que cada vez que el usuario accede a la protegida (en el ejemplo, la Hoja2), se le presenta un Inputbox, solicitando una contraseña. Si el usuario no introduce ninguna contraseña, o introduce una contraseña incorrecta, el usuario es redirigido a la primera hoja (en nuestro caso, a la Hoja1). A través de este método de protección, el usuario ve parte del contenido de la Hoja2 (el Inputbox aparece en primer plano, delante del contenido de la Hoja2), pues ha accedido a ella, …solo que si quiere interactuar con la misma (ver todo el contenido, cambiar datos, imprimir, etc.), deberá introducir el password correcto.

El segundo caso, mucho más elegante, consiste en tener la hoja oculta (en nuestro caso, la Hoja3), y cada vez que queramos acceder a ella, se nos pida un password. En caso de no introducirlo, de introducirlo de forma incorrecta, no podremos acceder a la hoja. En el caso de introducir el password correcto, se mostrará la hoja de cálculo al usuario.


Para el primer método de protección, nos bastará con copiar y pegar este código en la Hoja2, desde VBA (no hay que copiarlo en un módulo, sino en la Hoja2):

Private Sub Worksheet_Activate() 'Este mensaje aparecerá cada vez que 'accedamos a la Hoja2 respuesta = InputBox("Introduce el password", "Password") 'si la respuesta introducida es distinta de "tariro-tariro" 'devolvemos al usuario a la Hoja1 (ojo, Hoja1 es el nombre 'interno de VBA, no el nombre visible de la pestaña) If LCase(respuesta) <> "tariro-tariro" Then 'Vamos a la Hoja1 Hoja1.Activate End If End Sub

Para el segundo método de protección, deberemos copiar y pegar dos macros en un módulo VBA. El primero consiste en ocultar de forma muy estricta, la Hoja3, cada vez que abramos el fichero de excel, para lo cual crearemos el macro llamado Auto_open():

Sub Auto_open() 'Ocultamos la Hoja3 Hoja3.Visible = xlSheetVeryHidden End Sub

El otro macro que tendremos que copiar es este que os incluyo a continuación (hay que copiarlo en un módulo). El macro está pensado para asociarlo a un botón, para que se ejecute, y que nos pida el password, y su funcionamiento, como veréis al leer el código fuente, que está comentado, es realmente sencillo:

Sub Ir_a_la_hoja3() 'Este mensaje aparecerá cada vez que 'accedamos a la Hoja3 respuesta = InputBox("Introduce el password", "Password") 'si la respuesta introducida es distinta de "tariro-tariro" 'devolvemos al usuario a la Hoja1 (ojo, Hoja3 es el nombre 'interno de VBA, no el nombre visible de la pestaña) If LCase(respuesta) <> "tariro-tariro" Then 'Vamos a la Hoja1 Hoja1.Activate 'Ocultamos la Hoja3 Hoja3.Visible = xlSheetVeryHidden Else 'Mostramos la Hoja3 Hoja3.Visible = True 'Vamos a la Hoja3 Hoja3.Activate End If End Sub

Como complemento, en el fichero que os podéis descargar y que contiene todo este código, se incluye un tercer macro, que sirve para asociar el primer método de protección a un botón (el método que nos presenta el Inputbox, al acceder a la Hoja2):

Sub Ir_a_la_hoja2() 'Vamos a la Hoja2 Hoja2.Select End Sub

Evidentemente, como siempre que hagamos un macro, deberemos proteger con un password, el módulo VBA, para salvaguardarlo de los curiosos. Desde aquí podéis descargar el fichero de excel, con el ejemplo que os presento en este artículo.