Minimizar abas
Enviado: 30 Abr 2019 às 23:45
Prezados,
Gostaria de minimizar as abas da minha planilha, deixando visível o" menu". De acordo com a planilha que estou tendo esta inspiração, o código usado é o seguinte:
Não conseguir anexar as imagens para que possam entender melhor.
Gostaria de minimizar as abas da minha planilha, deixando visível o" menu". De acordo com a planilha que estou tendo esta inspiração, o código usado é o seguinte:
Código: Selecionar todos
Mas quando uso em minha planilha não funciona.Option Explicit
Sub Worksheet_Activate()
4 On Error Resume Next
5 ThisWorkbook.Unprotect
6 Menu.Activate
7 Dim Sheet As Worksheet
8 For Each Sheet In Worksheets
9 If Sheet.CodeName <> "Menu" Then Sheet.Visible = xlSheetVeryHidden
10 Next
11 ThisWorkbook.Protect , True
12 ErrorReset
End Sub
Não conseguir anexar as imagens para que possam entender melhor.