Endre tilgjengeligheten for kommandolinjene ved hjelp av VBA i Microsoft Excel

Anonim

Med makroen nedenfor kan du veksle tilgjengeligheten til arbeidsbokmenylinjen, standardverktøylinjen og en egendefinert kommandolinje.
Første gang du kjører makroen, er menyen og standardlinjen deaktivert, den egendefinerte verktøylinjen er aktivert.
Neste gang du kjører makroen, er menyen og standardlinjen aktivert, den egendefinerte kommandolinjen er deaktivert.

Sub ToggleCommandBars () Dim cbEnabled As Boolean 'get the current commandbar state cbEnabled = Not Application.CommandBars (1) .Enabled' bruk den nye tilstanden på arbeidsbokmenylinjen Application.CommandBars (1) .Enabled = cbEnabled 'bruk den nye staten til Standard verktøylinje Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'bruker den nye staten på en egendefinert kommandolinje (motsatt av de to foregående) Application.CommandBars ("MyCustomCommandBar"). Enabled = Not cbEnabled End Sub