Site icon Business Intelligence MX

Ocultar hoja de Excel con contraseña

Hoja muy oculta en Excel



Quieres proteger solo una parte del libro de trabajo, y no quieres que haya rastro del mismo. Descarga el archivo ( hoja_oculta ). Y esta es la explicación…

Cómo ver una hoja oculta en Excel

Paso 0. Abrir el archivo.

Paso 1. Trata de ver las hojas ocultas. Notarás que en apariencia no hay ninguna.

Paso 2. Usa los botones de arriba (“ver hoja oculta” y “ver hoja oculta (con password)“). Verificarás que efectivamente hay dos hojas más en el libro.

 




Cómo esconder una hoja con un password

Las macros son muy simples: modifican la propiedad “visible” para una hoja determinada. Esta propiedad puede tomar tres valore: i) -1, es el valor por default para todas las hojas, todas son visibles al crearse; ii) 0, es el valor que toma eta propiedad cuando ocultas una hoja con el proceso ordinario: click derecho y ocultar; iii) 2, es el valor que toman las hojas cuando no quieres que queden accesibles para nadie; solo notarás que esta hoja existe si accedes al código en VBA (mismo que puedes proteger con un password). Con este último valor, solo un usuario experimentado podría encontrar tal hoja. Y ocurre lo mismo para la asignación de este valor: solo lo puedes asignar por medio de código (macros).





El código que hace el trabajo es este (este es el código para el botón “ver hoja oculta”):

Private Sub CommandButton1_Click()
Sheet2.Visible = -1
Sheet2.Activate
ActiveSheet.Range(“A1”).Activate
End Sub

La línea en naranja es la que cambia el valor de la propiedad “visible” de una hoja determinada (en este caso,la hoja 2). La pone en el valor -1, que es el correspondiente a las hojas visibles. Ocurre lo mismo con la macro que pide un password, solo que esta macro hace una validación del password antes de proceder al cambio:

Private Sub CommandButton2_Click()
AccessControl.Show
End Sub

Private Sub CommandButton1_Click()
If TextBox1 = “hola” Then
Sheet3.Visible = -1
Sheet3.Activate
Range(“A11”).Select
Else
MsgBox “Acceso solo con password!”, vbCritical, “Verifica tu password – FDITF.com”
End If
AccessControl.Hide
End Sub

 




Exit mobile version