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

Protegido: Excel Avançado – Como desproteger planilha

Para desproteger uma planilha no excel rode o código abaixo: Sub Deproteger() Dim i As Integer, j As Integer, k 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 – 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...

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 *