Mostrar/Esconder Planilha (VBA)

 Se pretendermos esconder/mostrar uma folha (Planilha) utilizando VBA, como no exemplo:

 

 

podemos utilizar o seguinte código:

 

 

Sub Esconde()

    

    Worksheets(2).Visible = xlSheetVeryHidden

    Sheets(2).Protect Password:=”xxxx”, UserInterfaceOnly:=True

 

End Sub

 

 

Sub Mostra()

    

    Worksheets(2).Visible = xlSheetVisible

    Sheets(2).Protect Password:=”xxxx”, UserInterfaceOnly:=True

 

End Sub

• Sobre o argumento UserInterfaceOnly, pode ver-se www.ozgrid.com/VBA/excel-macro-protected-sheet.htm 

 

 Outra forma, muito prática, é, no tabulador inicial (no exemplo Notificações), adicionar o seguinte código:

 

Private Sub Worksheet_Activate()
    Worksheets(2).Visible = xlSheetVeryHidden
    Sheets(2).Protect Password:=”xxxx”, UserInterfaceOnly:=True
End Sub