Rediger tilgængeligheden for kommandobjælkerne ved hjælp af VBA i Microsoft Excel

Anonim

Med makroen herunder kan du skifte tilgængeligheden af ​​arbejdsbogens menulinje, standardværktøjslinjen og en brugerdefineret kommandolinje.
Første gang du kører makroen, er menuen og standardlinjen deaktiveret, den tilpassede værktøjslinje er aktiveret.
Næste gang du kører makroen, er menuen og standardlinjen aktiveret, den tilpassede kommandolinje er deaktiveret.

Sub ToggleCommandBars () Dim cbEnabled As Boolean 'få den aktuelle kommandolinjestatus cbEnabled = Ikke Application.CommandBars (1) .Enabled' anvender den nye tilstand til Workbook Menu Bar Application.CommandBars (1) .Enabled = cbEnabled 'anvender den nye tilstand til standardværktøjslinjen Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'anvender den nye tilstand på en brugerdefineret kommandolinje (modsat af de to foregående) Application.CommandBars ("MyCustomCommandBar"). Aktiveret = Ikke cbEnabled End Sub