Alla olevan makron avulla voit vaihtaa työkirjan valikkorivin, Vakio -työkalurivin ja mukautetun komentorivin saatavuuden.
Kun suoritat makron ensimmäisen kerran, valikko ja vakiopalkki ovat poissa käytöstä, mukautettu työkalurivi on käytössä.
Kun seuraavan kerran suoritat makron, valikko ja vakiopalkki ovat käytössä, mukautettu komentorivi poistetaan käytöstä.
Sub ToggleCommandBars () Dim cbEnabled Boolean 'saa nykyisen komentorivin tilan cbEnabled = Not Application.CommandBars (1) .Enabled' soveltaa uutta tilaa työkirjan valikkorivisovellukseen.CommandBars (1) .Enabled = cbEnabled 'ottaa käyttöön uuden tilan standardityökaluriville Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'soveltaa uutta tilaa mukautettuun komentoriviin (kahden edellisen vastakohta) Application.CommandBars ("MyCustomCommandBar"). Enabled = Not cbEnabled End Sub