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 – Agendar a execução de uma macro automática via VBA

Caso queira agendar uma macro para rodar um certo horário basta usar a função Ontime conforme abaixo: Sub Teste() MsgBox 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 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 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 *