Žemiau esančioje makrokomandoje galite perjungti darbaknygės meniu juostos, standartinės įrankių juostos ir pasirinktinės komandų juostos prieinamumą.
Pirmą kartą paleidus makrokomandą, meniu ir standartinė juosta yra išjungtos, pasirinktinė įrankių juosta įjungta.
Kai kitą kartą paleidžiate makrokomandą, įjungiamas meniu ir standartinė juosta, pasirinktinė komandų juosta išjungiama.
Sub ToggleCommandBars () Dim cbEnabled As Boolean 'gauti dabartinę komandų juostos būseną cbEnabled = Not Application.CommandBars (1). Enabled' taikyti naują būseną darbaknygės meniu juostos programai.CommandBars (1) .Enabled = cbEnabled 'taikyti naują būseną į standartinę įrankių juostą Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'pritaikykite naują būseną pasirinktinei komandų juosta (ankstesnių dviejų priešingybė) Application.CommandBars ("MyCustomCommandBar"). Enabled = Not cbEnabled End Sub