Med makrot nedan kan du växla tillgängligheten för arbetsbokens menyrad, standardverktygsfältet och en anpassad kommandofält.
Första gången du kör makrot är menyn och standardfältet inaktiverade, det anpassade verktygsfältet är aktiverat.
Nästa gång du kör makrot är menyn och standardfältet aktiverat, den anpassade kommandofältet är inaktiverat.
Sub ToggleCommandBars () Dim cbEnabled As Boolean 'get the current commandbar state cbEnabled = Not Application.CommandBars (1) .Enabled' tillämpa det nya tillståndet på Workbook Menu Bar Application.CommandBars (1) .Enabled = cbEnabled 'tillämpa det nya tillståndet till Verktygsfältet Standard Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'tillämpa det nya tillståndet på ett anpassat kommandofält (motsatsen till de två föregående) Application.CommandBars ("MyCustomCommandBar"). Enabled = Not cbEnabled End Sub