События объекта Workbook
События объектов Workbook и Worksheet
End Sub
Next
End If
Exit For
Удаление меню
End Sub
Задание: введите данный код в книгу Плюс в кружочке.xls и запустите его. Убедитесь, что меню Вставка знака создана.
Для удаления меню воспользуемся следующей программой:
Sub УдалениеМеню()
Set myMenuBar = CommandBars("Worksheet Menu bar")
For Each Меню In myMenuBar.Controls
If Меню.Caption = "Вставка знака" Then
Меню.Delete
Задание: введите данный код в книгу Плюс в кружочке.xls и запустите его. Убедитесь, что меню Вставка знака удалено.
События имеются не только у элементов управления. Объекты, рассмотренные в главе 1, также обладают своими событиями.
Рассмотрим некоторые события объектов Workbook и Worksheet.
События рабочей книги возникают в случае изменений самой книги, её листов, надстроек и сводных таблиц. Ниже приведен список событий объекта Workbook.
Событие | Описание |
BeforeClose | При закрытии рабочей книги |
BeforePrint | Перед печатью рабочей книги |
BeforeSave | Перед сохранением рабочей книги |
Deactivate | Когда рабочая книга становится не активной |
NewSheet | При добавлении нового листа |
Open | При открытии рабочей книги |
SheetActivate | При активизации любого листа |
SheetDeactivate | Когда лист становится не активным |
Рассмотрим подробнее события Open и BeforeClose.
|
|
Предположим, что загрузка панели инструментов Вставка знака должна осуществляться при открытии книги Плюс в кружочке.xls.
Чтобы связать это событие с открытием книги выполните следующие действия:
1. В окне проекта Плюс в кружочке.xls (в редакторе VBA) щелкните ThisWorkbook (Рис. 13‑1).
|
|
|
Рис. 13‑1.
2. В списке объектов выберите объект Workbook.
3. В списке процедур выберите событие Open. На экране появится первая последняя строки процедуры обработки этого события Workbook_Open.
4. Вставьте в неё нужный фрагмент кода (код процедуры СозданиеПанелиИнструментов без 1-й и последней строки).
Сохраните внесенные изменения, закройте книгу Плюс в кружочке.xls, затем откройте её заново. Убедитесь, что панель инструментов создана.