Allpool oleva makro abil saate vahetada töövihiku menüüriba, tööriistariba Standard ja kohandatud käsuriba.
Makro esmakordsel käivitamisel on menüü ja standardriba keelatud, kohandatud tööriistariba on lubatud.
Makro järgmisel käivitamisel on menüü ja standardriba lubatud, kohandatud käsuriba on keelatud.
Sub ToggleCommandBars () Dim cbEnabled Boolean 'saada käsurea praegune olek cbEnabled = Not Application.CommandBars (1). Enabled' rakendab uue oleku töövihiku menüüriba rakendusele. CommandBars (1) .Enabled = cbEnabled 'rakendab uut olekut standardsele tööriistariba Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'rakendab uue oleku kohandatud käsuribale (kahe eelmise vastand) Application.CommandBars ("MyCustomCommandBar"). Enabled = Not cbEnabled End Sub