Compartilhe!

Se ainda não se acostumou com a mudança do layout do Excel rode o código abaixo que  adicionará o menu antigo na aba suplementos:

Excel em português:

Sub Menu_Antigo()
   Dim cb As CommandBar
   Dim cbc As CommandBarControl
   Dim MenuAntigo As CommandBar
   On Error Resume Next
   Application.CommandBars("MenuAntigo1").Delete
   On Error GoTo 0
   Set MenuAntigo = Application.CommandBars.Add("MenuAntigo1", msoBarFloating, True)
   With CommandBars("Built-in Menus")
     .Controls("&Arquivo").Copy MenuAntigo
     .Controls("&Editar").Copy MenuAntigo
     .Controls("&Exibir").Copy MenuAntigo
     .Controls("&Inserir").Copy MenuAntigo
     .Controls("F&ormatar").Copy MenuAntigo
     .Controls("&Ferramentas").Copy MenuAntigo
     .Controls("&Dados").Copy MenuAntigo
     .Controls("&Janela").Copy MenuAntigo
     .Controls("&Ajuda").Copy MenuAntigo
   End With
   Application.CommandBars("MenuAntigo1").Visible = True
End Sub

Excel em inglês:

Sub Menu_Antigo()
   Dim cb As CommandBar
   Dim cbc As CommandBarControl
   Dim MenuAntigo As CommandBar
   On Error Resume Next
   Application.CommandBars("MenuAntigo1").Delete
   On Error GoTo 0
   Set MenuAntigo = Application.CommandBars.Add("MenuAntigo1", msoBarFloating, True)
   With CommandBars("Built-in Menus")
     .Controls("&File").Copy MenuAntigo
     .Controls("&Edit").Copy MenuAntigo
     .Controls("&View").Copy MenuAntigo
     .Controls("&Insert").Copy MenuAntigo
     .Controls("F&ormat").Copy MenuAntigo
     .Controls("&Tools").Copy MenuAntigo
     .Controls("&Data").Copy MenuAntigo
     .Controls("&Window").Copy MenuAntigo
     .Controls("&Help").Copy MenuAntigo
   End With
   Application.CommandBars("MenuAntigo1").Visible = True
End Sub

Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.

Você também vai gostar:
Excel – Mensagem ao usuário para continuar ou não uma macro via VBA

As vezes o usuário aperta o botão sem querer e roda uma macro sem desejar. Para que isso não aconteça Leia mais...

Excel Avançado – Macro que executa antes de fechar a planilha

Se você deseja rodar um comando antes de fechar sua planilha, coloque o código dentro da macro chamada  “Workbook_BeforeClose" Segue Leia mais...

Excel – Cálculo Automático ou Manual via VBA

Para alternar entre cálculo automático ou manual via VBA, basta usar os seguintes comandos: Para automático: Application.Calculation  = xlCalculationAutomatic Para manual: Leia mais...

Excel – Abrir outra sessão do excel via VBA

Vamos abrir uma nova sessão do Excel para abrir uma planilha copiar uma célula e fechar. Segue um exemplo de Leia mais...

Obrigado pela visita!

www.exceleaccess.com

contato@exceleaccess.com

www.exceleaccess.com

www.exceleaccess.com

www.exceleaccess.com


Compartilhe!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *