Не понятно, что не понятно Жмем правой кнопкой мыши на ярлычок листа, выбираем "Исходный текст". Двойной клик на "Эта книга", видим код, где на событие закрытия файла: [vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
[/vba] навешено условие: [vba]
Код
If Range("a1").Value <> "denizen" Then
[/vba] т.е. если в ячейке А1 не написано denizen, то [vba]
Код
Cancel = True
[/vba] отменяем выход (закрытие файла). ------------------------------------------------------ [offtop]Три раза безуспешно пытался закрыть файл, забыл denizen написать. Наверное, склероз. [/offtop]
Не понятно, что не понятно Жмем правой кнопкой мыши на ярлычок листа, выбираем "Исходный текст". Двойной клик на "Эта книга", видим код, где на событие закрытия файла: [vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
[/vba] навешено условие: [vba]
Код
If Range("a1").Value <> "denizen" Then
[/vba] т.е. если в ячейке А1 не написано denizen, то [vba]
Код
Cancel = True
[/vba] отменяем выход (закрытие файла). ------------------------------------------------------ [offtop]Три раза безуспешно пытался закрыть файл, забыл denizen написать. Наверное, склероз. [/offtop]ShAM
Сообщение отредактировал ShAM - Вторник, 23.07.2013, 03:29
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
да, лучше! 
