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.
Obrigado pela visita!
www.exceleaccess.com
contato@exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com