Hacer visibles las hojas muy ocultas de un libro de Excel

Voy a comenzar este post aconsejando que no utilicen Excel para almacenar datos sensibles o confidenciales. Y me refiero al echo de guardar datos en una hoja del libro para posteriormente ocultarla. Existen dos formas de ocultar hojas de un libro, una de ellas es ir a la barra de hojas y seleccionar una o varias para posteriormente dar clic derecho y seleccionar la opción de ocultar. Esta es la mas simple y en la que basta dar nuevamente clic derecho sobre una hoja visible y seleccionar la opción de mostrar para ir haciendo visible una por una de las hojas ocultas.

También existe otra manera la cual consiste en guardar previamente el libro como libro habilitado para macros (extensión XLSM) e ir al editor de Visual Basic e insertar un modulo. Una vez echo lo anterior seleccionar cada hoja en el proyecto y en su apartado de propiedades seleccionar visible y asignar el valor xlSheetVeryHidden. Una vez echo lo anterior se procede bloquear el proyecto por medio de una contraseña y se le da guardar.

Con todo lo anterior no podrán hacer visibles las pestañas desde la interfaz de Excel y tampoco entrando al proyecto por que no será visible a menos que rompan la contraseña o algo mas fácil... Si abren un nuevo libro y se van al editor de VB e insertan un modulo con el siguiente código pueden hacer visibles las hojas:

Option Explicit

Sub MostrarHojas()

Dim libro As Workbook

Dim hoja As Worksheet

Set libro = ActiveWorkbook

For Each hoja In libro.Sheets

  hoja.Visible = xlSheetVeryHidden

Next

MsgBox "Hojas visibles!", vbInformation

End Sub

Para que el código anterior funcione deben tener activo libro que contiene las hojas ocultas. La variable libro hará referencia al libro activo y se empezara a iterar en sus hojas cambiando la propiedad de cada una de ellas a xlSheetVisible y serán visibles nuevamente. Les comparto el vídeo donde pueden apreciar un caso práctico.