Excel. Трюки и эффекты

Листинг 3.79. Код в модуле ЭтаКнига

Sub Workbook_Open()

' Задание имени меню

strMenuName = «MyCommandBarName»

' Создание меню

CreateCustomMenu

End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)

' Удаление меню перед закрытием книги

DeleteCustomMenu

End Sub

Второй код необходимо набрать в любом стандартном модуле. В нем определяется структура пользовательского меню и порядок его работы. Содержимое данного кода представлено в листинге 3.80.