Ocultar pestañas excel con VBA

Para ocultar una pestaña determinada con VBA:

1
Sheets("Hoja3").Visible = False

Para mostrar la pestaña:

1
Sheets("Hoja3").Visible = True

Si queremos buscar si existe una hoja en un documento en concreto:

1
2
3
4
5
6
7
8
9
10
11
12
Function BuscarHoja(nombreHoja As String) As Boolean
 
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = nombreHoja Then
            BuscarHoja = True
            Exit Function
        End If
    Next
 
    BuscarHoja1 = False
 
End Function

En el caso de querer ocultar todas las hojas menos la “Hoja3”

1
2
3
4
5
6
7
For i = 1 To Worksheets.Count
        If Worksheets(i).Name = "Hoja3" Then
            Sheets("Hoja3").Visible = True
         Else
            Worksheets(i).Visible = False
        End If
    Next

Si queremos mostrar todas las pestañas ocultas:

1
2
3
For i = 1 To Worksheets.Count
        Worksheets(i).Visible = True
    Next

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.