Page 73 - 6735

Debug.Print Workbooks.Count 'кількість робочих книг у
сімействі Workbooks
Workbooks.Add 'додати книгу
Workbooks(2).Activate 'активувати другу книгу
Workbooks(2).Password = "Пароль" 'установити пароль на
другу книгу
Workbooks(2).Password = "" 'зняти пароль
Workbooks(2).SaveAs "my_book2" 'зберегти як my_book2.xls
Workbooks(2).Save 'зберегти
Debug.Print Workbooks(2).HasPassword 'чи має пароль
Workbooks(2).PrintOut 'вивести на друк
Workbooks(2).Close 'закрити
Workbooks.Open "my_book2" 'відкрити my_book2.xls
'змінити значення комірки A1 листа Лист1 книги my_book2
Workbooks("my_book2").Worksheets("Лист1").Range("A1").Valu
e = 3
Workbooks("my_book2").Close 'закрити my_book2.xls
Kill "my_book2.xls" 'знищити файл my_book2.xls
End Sub

Події об'єкта Workbook

В прикладі показано обробку таких подій робочої книги Excel,
як Open, BeforeClose, SheetSelectionChange, SheetChange,
SheetBeforeRightClick. Вставте наступний код в об’єктний
модуль ЭтаКнига класу Workbook. У вікні Immediate будуть
виводитись повідомлення, що відповідають різним подіям робочої
книги.

'Процедура обробки події Open (відкриття книги)
Private Sub Workbook_Open()
MsgBox "Збірник прикладів VBA-програм" & Chr(13) & "Автор:
Копей В.Б."
End Sub

'Процедура обробки події BeforeClose (перед закриттям
73