Izmantojot zemāk esošo makro, varat pārslēgt darbgrāmatas izvēlnes joslas, standarta rīkjoslas un pielāgotas komandjoslas pieejamību.
Pirmo reizi palaižot makro, izvēlne un standarta josla ir atspējota, pielāgotā rīkjosla ir iespējota.
Nākamreiz, palaižot makro, tiek iespējota izvēlne un standarta josla, pielāgotā komandjosla ir atspējota.
Sub ToggleCommandBars () Dim cbEnabled As Būla 'iegūst pašreizējo komandjoslas stāvokli cbEnabled = Not Application.CommandBars (1). Enabled' piemēro jauno stāvokli darbgrāmatas izvēlnes joslas lietojumprogrammai. CommandBars (1) .Enabled = cbEnabled 'piemēro jauno stāvokli standarta rīkjoslai Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'piemēro jauno stāvokli pielāgotajai komandjoslai (iepriekšējo divu opozītam) Application.CommandBars ("MyCustomCommandBar"). Enabled = Not cbEnabled End Sub