Spremenite razpoložljivost za ukazne vrstice z uporabo VBA v programu Microsoft Excel

S spodnjim makrom lahko preklopite razpoložljivost menijske vrstice delovnega zvezka, standardne orodne vrstice in ukazne vrstice po meri.
Ko prvič zaženete makro, sta meni in vrstica Standard onemogočena, orodna vrstica po meri je omogočena.
Ko naslednjič zaženete makro, sta meni in vrstica Standard omogočena, ukazna vrstica po meri je onemogočena.

Sub ToggleCommandBars () Dim cbEnabled Kot Boolean "dobite trenutno stanje ukazne vrstice cbEnabled = Not Application. CommandBars (1). Enable" uporabi novo stanje v meniju vrstice delovnega zvezka. CommandBars (1). Enable = cbEnabled "uporabi novo stanje v standardno orodno vrstico Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'uporabi novo stanje za ukazno vrstico po meri (nasprotje prejšnjih dveh) Application.CommandBars ("MyCustomCommandBar"). Enabled = Not cbEnabled End Sub