Com a macro abaixo, você pode alternar a disponibilidade da Barra de menus da pasta de trabalho, da barra de ferramentas Padrão e de uma CommandBar personalizada.
Na primeira vez que você executa a macro, o menu e a barra padrão são desativados e a barra de ferramentas personalizada é ativada.
Na próxima vez que você executar a macro, o menu e a barra Padrão serão ativados, o CommandBar personalizado será desativado.
Sub ToggleCommandBars () Dim cbEnabled As Boolean 'obter o estado atual da barra de comando cbEnabled = Not Application.CommandBars (1) .Enabled' aplicar o novo estado à Workbook Menu Bar Application.CommandBars (1) .Enabled = cbEnabled 'aplicar o novo estado à barra de ferramentas Padrão Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'aplica o novo estado a uma barra de comandos personalizada (o oposto dos dois anteriores) Application.CommandBars ("MyCustomCommandBar"). Enabled = Não cbEnabled End Sub