Buscar hojas ocultas

Hoy os presento una sencilla utilidad que nos servirá para determinar las hojas ocultas que hay en un libro de excel. El libro puede ser nuestro, puede ser un libro de excel que nos haya pasado un amigo, o puede ser uno que hayamos descargado de internet. Da lo mismo, porque la finalidad de esta utilidad, es descubrir las hojas ocultas de un libro, con independencia del libro de que se trate.

La forma de utilizar esta utilidad, es muy variada, pero la más sencilla es por ejemplo colocándola en nuestro libro personal de macros. De esa forma tendremos siempre disponible esta utilidad, para aplicarla en tantos libros como deseemos. Tan solo deberemos seleccionar el macro desde la opción de menú Herramientas, seleccionando Macro, a continuación Macros..., y seguidamente seleccionando el macro en cuestión.

Como usaremos un macro y un formulario, deberemos copiar ambos en el libro personal.

La idea es presentar un formulario donde se carguen a través de un combobox, todas las hojas ocultas del libro (si es que tiene alguna hoja oculta). Cuando ejecutemos esta utilidad, cargaremos un formulario como este:


Y cuando cliqueemos en el Combobox, se nos presentará el desplegable con las hojas ocultas que tiene el libro activo (normalmente el libro que tenemos en primer plano, o el libro con el que estamos trabajando):


Una vez hayamos seleccionado una hoja, y cliqueemos en el botón llamado "Hacer visible la hoja", el macro lo que hará es precisamente eso, hacer visible la hoja de tal forma que ya no esté oculta. También nos presentará un mensaje a través de un MsgBox, donde se nos informará de ello:



El código fuente para lanzar el Userform, es lo más sencillo que hay:

Sub mostrar_hojas_ocultas() 'Mostramos el formulario UserForm1.Show End Sub

Y el código del formulario, una vez lo hayamos diseñado, y tenga su Label, su ComboBox, y su CommandButton, tendrá un par de procedimientos. El primero de ellos será el que cargue las hojas ocultas en el combobox:

Private Sub ComboBox1_Enter() 'En caso de error, que continúe On Error Resume Next 'Esto se producirá cuando nos 'situemos sobre el combobox1 'antes quitaremos todo lo que haya en el combobox1 ComboBox1.Clear 'Recorremos todas las hojas del libro For i = 1 To Sheets.Count 'Ahora buscamos las hojas ocultas y las muy ocultas If Sheets(i).Visible = xlSheetHidden Or Sheets(i).Visible = xlSheetVeryHidden Then 'las cargamos en el combobox ComboBox1.AddItem Sheets(i).Name End If Next End Sub

Y el otro, el código del CommandButton, es decir, del botón llamado "Hacer visible la hoja":

Private Sub CommandButton1_Click() 'Obtenemos el nombre de la hoja seleccionada hoja_elegida = ComboBox1.List(ComboBox1.ListIndex) 'la hacemos visible Sheets(hoja_elegida).Visible = True 'Mostramos un mensaje MsgBox ("La hoja llamada " & hoja_elegida & ", la acabamos de hacer visible.") End Sub

Muchos de vosotros os preguntaréis por qué en el código del combobox, en lugar de poner esta línea:

If Sheets(i).Visible = xlSheetHidden Or Sheets(i).Visible = xlSheetVeryHidden Then

No he puesto esta otra que es más sencilla y breve:

If Sheets(i).Visible = false Then

La respuesta es muy sencilla. Si utilizamos esta segunda opción, solo se nos cargarán en el combobox las hojas que esté ocultas (Hidden), pero no se nos cargarán las que estén muy ocultas (VeryHidden). Por eso, si queremos cargar en el combobox los nombres de todas las hojas ocultas, debemos utilizar la primera opción.

Desde aquí podéis descargar el fichero, con el ejemplo que hemos visto en este artículo.