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 – 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 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...

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 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...

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 *