Endre tilgjengeligheten til menylinjer og verktøylinjer

Ved hjelp av makroen nedenfor kan du skjule menylinjen og verktøylinjen "Standard", samt vise en egendefinert CommandBar i stedet. Neste gang makroen kjøres vil menylinjen og verktøylinjen "Standard" vises igjen, mens den egendefinerte CommandBar-en vil skjules.

Sub ToggleCommandBars()
Dim cbEnabled As Boolean
    ' nåværende status for verktøylinjen
    cbEnabled = Not Application.CommandBars(1).Enabled
    ' angi ny status for Workbook Menu Bar
    Application.CommandBars(1).Enabled = cbEnabled
    ' angi ny status for Standard-verktøylinjen
    Application.CommandBars("Standard").Enabled = cbEnabled
    ' angi ny status for en egendefinert verktøylinje (motsatt av de forrige)
    Application.CommandBars("MyCustomCommandBar").Enabled = Not cbEnabled
End Sub

CommandBar Tools er et nyttig verktøy som kan hjelpe deg med å finne navn og ID-nummer til de forskjellige CommandBar-ene og deres knapper og menyer.

Dokumentet er sist oppdatert 2000-02-05 22:10:37 Utskriftsvennlig versjon