Закрытие рабочей книги только при выполнении условия
С помощью несложного трюка можно запретить закрытие текущей рабочей книги. Для этого можно воспользоваться кодом, приведенным в листинге 2.6 (этот код должен быть помещен в модуль ЭтаКнига).
Листинг 2.6. Условное закрытие книги
Sub Workbook_BeforeClose(Cancel As Boolean)
If Range(«A1»).Value <> «Можно закрывать» Then
' Условие закрытия не выполнено. Укажем Exсel игнорировать _
команду
Cancel = True
End If
End Sub
При использовании данного кода закрытие текущей рабочей книги будет возможно лишь после того, как в ячейку А1 будет введен текст Можно закрывать.