VBA – Ocultar (ou Reexibir) uma Planilha

Este tutorial lhe ensinará como ocultar e reexibir planilhas com VBA.

Worksheets("Planilha1").visible = False

ou defina a propriedade Visible para xlSheetHidden:

Worksheets("Planilha1").visible = xlSheetHidden

Isto é o mesmo que se o usuário clicasse com o botão direito na guia da planilha e selecionasse “Ocultar”.

Reexibir Planilha

Para reexibir uma planilha em VBA, utilize a propriedade Visible de Worksheet:

Worksheets("Planilha1").Visible = True

ou

Worksheets("Planilha1").Visible = xlSheetVisible

As planilhas ocultas podem ser vistas clicando com o botão direito do mouse na área da guia da planilha:

Planilhas Muito Ocultas

A propriedade Visible tem uma terceira opção: xlSheetVeryHidden:

Worksheets("Planilha1").Visible = xlSheetVeryHidden

Planilhas muito ocultas  não aparecem quando se clica com o botão direito do mouse na área da guia da planilha:

Este código impedirá que o usuário do arquivo veja a aba da planilha na parte inferior da tela. Ele também esconde a planilha do usuário quando ele clica com o botão direito do mouse nas abas na parte inferior. A única maneira de ver que a planilha existe (ou reexibir a planilha) é abrindo o Editor Visual Basic.

Reexibir Planilhas Muito Ocultas

As planilhas muito ocultas são tornadas visíveis da mesma forma que as planilhas ocultas normais:

Worksheets("Planilha1").Visible = True

ou

Worksheets("Planilha1").Visible = xlSheetVisible

Ocultar / Reexibir Planilhas no Editor VBA

Você também pode alternar Propriedade Visível da Planilha dentro do Editor VBA:

Ocultar Todas as Guias de Planilhas

Você também pode querer ocultar completamente todas as guias para evitar que o usuário navegue para diferentes planilhas. Saiba mais sobre como ocultar as guias de planilha.

Ocultar/ Reexibir Planilhas Protegidas

Seu arquivo deve ser desprotegido antes que você possa ocultar ou reexibir planilhas. Para desproteger a estrutura do arquivo, use o seguinte código:

ActiveWorkbook.Unprotect

Se a estrutura do arquivo estiver protegida por senha, você deve fazer isso em seu lugar:

ThisWorkbook.Unprotect "senha"

Reexibir Todas as Planilhas

Este procedimento reexibirá todas as planilhas em um arquivo, usando um For Each Loop:

Sub Reexibir_Todas_Planilhas()
    Dim ws As Worksheet
    
    ActiveWorkbook.Unprotect
    For Each ws In Worksheets
        ws.Visible = xlSheetVisible
    Next
End Sub

Observe que primeiro desprotegemos o arquivo, caso ele estivesse protegido por senha.