С макроса по -долу можете да превключвате наличността на лентата с менюта на работната книга, стандартната лента с инструменти и персонализирана лента с команди.
При първото стартиране на макроса менюто и Стандартната лента са деактивирани, персонализираната лента с инструменти е активирана.
Следващият път, когато стартирате макроса, менюто и стандартната лента са активирани, персонализираната CommandBar е деактивирана.
Sub ToggleCommandBars () Dim cbEnabled Като Boolean "получите текущото състояние на командната лента cbEnabled = Не е приложение. CommandBars (1). Enable" прилага новото състояние към приложението в лентата с менюта на работната книга. CommandBars (1). Enable = cbEnabled "прилага новото състояние към Стандартната лента с инструменти Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'прилага новото състояние към персонализирана командна лента (обратното на предишните две) Application.CommandBars ("MyCustomCommandBar").