Este fórum está sendo desativado

[becerqueiraa]

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:

Código: Selecionar todos

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

Mas quando uso em minha planilha não funciona.
Não conseguir anexar as imagens para que possam entender melhor.

[becerqueiraa]

Não sei anexar arquivo.

[Kledison]

Boa noite,

para adicionar anexos no fórum, clique o ícone cinza (+RESPOSTAS), está localizado abaixo e a esquerda do ícone Azul (RESPOSTA RÁPIDA).

Att

[becerqueiraa]

Segue anexo para que possam me ajudar com a "minha planilha".

[Kledison]

Opa,

existe algumas maneiras de fazer, coloquei uma que costumo usar em meus projetos.



Att

[becerqueiraa]

Muito bm, mas queria desvendar esse mistério da aba minimizar. Mas a planilha será muito grande, gostaria de deixar com o designer dessa forma...

Adicionei os códigos, poderiam verificar qual a variável está incorreta?