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 Avançado – Planilha que busca dados de uma página da internet

Vamos aprender como atualizar sua planilha com dados de uma página da internet. Primeriamente você precisa criar uma consulta. Vai 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...

Excel Avançado – Macro que executa ao abrir a planilha

Se você deseja rodar um comando quando abre a sua planilha, coloque o código dentro da macro chamada  "Workbook_Open". Segue Leia mais...

Excel e Access – Gravando Dados do Excel no Access via VBA (macro)

Excel e Access – Gravando Dados do Excel no Access via VBA (macro) 1 – Primeiro você deve criar uma 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 *