Основы офисного программирования и язык VBA
Управление доступом к командам меню
Иногда удобней управлять доступом пользователя к командам меню, не скрывая и восстанавливая их на экране, а отключая реакции на их выбор и нажатие. Такие команды видны на экране, но отличаются от активных команд своим тусклым, "серым" видом. Для управления доступом к компонентам меню служит булево свойство Enabled (Включен). Если оно равно True, соответствующий компонент (команда, выпадающее меню или подменю) доступен - False делает компонент недоступным ("серым"). Установив для свойства Enabled подменю значение False, можно сделать недоступными все его команды. Так можно управлять доступом к собственным компонентам меню. Для встроенных компонентов меню переустановить свойство Enabled нельзя. Сделаем недоступной пользовательскую команду "Сохранить базу" выпадающего меню "Файлы" на панели "Worksheet Menu Bar" рабочего листа Excel.
CommandBars("Worksheet Menu Bar").Controls("Файлы") _ Controls.Add("Сохранить базу").Enabled = False
Все команды выпадающего меню "Файлы" можно сделать недоступными оператором:
CommandBars("Worksheet Menu Bar").Controls("Файлы").Enabled = False
