Событие Open возникает
при открытии рабочей книги. Это
событие заменило макрос Auto_0pen,
используемый в предыдущих
версиях Excel. Процедура обработки
данного события имеет следующий
синтаксис:
Private Sub
Workbook Open ()
Приведем пример, в котором
процедура обработки события Open
устанавливает значения
различных свойств рабочей книги:
Private Sub
Workbook_Open ()
With
ActiveWindow
.DisplayGridlines
= False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
'
Присваивая свойству Visible
значение False, можно скрыть
' рабочую книгу. Чтобы
отобразить ее, необходимо
задать значение
' True для данного свойства.
Workbooks("SalesData").Worksheets("Reference
Info").Visible = False
Workbooks("SalesData").Worksheets("Data").Activate
End Sub
На рис. 10.3 показано, как
выглядит окно рабочей книги
после выполнения данной
процедуры. Обратите внимание на
то, что ярлычки рабочих листов,
сетка и полосы прокрутки не
отображаются.
Рис. 10.3.
Результат выполнения процедуры
Workbook Open