Cu macro-ul de mai jos puteți comuta disponibilitatea barei de meniu a registrului de lucru, a barei de instrumente standard și a unei bare de comandă personalizate.
Prima dată când rulați macro-ul, meniul și bara standard sunt dezactivate, bara de instrumente personalizată este activată.
Data viitoare când rulați macro-ul, meniul și bara Standard sunt activate, bara de comandă personalizată este dezactivată.
Sub ToggleCommandBars () Dim cbEnabled As Boolean 'get the current commandbar state cbEnabled = Not Application.CommandBars (1) .Enabled' aplică noua stare la Workbook Menu Bar Application.CommandBars (1) .Enabled = cbEnabled 'aplică noua stare la bara de instrumente Standard Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'aplică noua stare unei bare de comandă personalizate (opus celor două precedente) Application.CommandBars ("MyCustomCommandBar"). Enabled = Nu cbEnabled End Sub