[QUOTE][QUOTE]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim cl As Range
If IsEmpty(Range("F9")) Then
MsgBox "Забыли заполнить ячейку F9!", vbCritical + vbOKOnly
End If
Cancel = True
End Sub
[/QUOTE][/QUOTE]
Все работает, но проблемка в том, что данный макет я сам не могу сохранить, не заполнив ячейку.
и еще: на компьютере коллеги при запуске данного файла всплывает окошко с примерным текстом: "работа макросов отключена включить содержимое" То есть, если сотрудник в целях предосторожности не нажмет клавишу "включить содержимое", то данный макрос окажется бесполезен и ячейка останется пустой?
ussuritiger написал: ...то данный макрос окажется бесполезен и ячейка останется пустой?
Не только данный. Все макросы окажутся бесполезными. Нужно или в настройках Wxcel разрешить макрпосы, или вынуждать пользователя включать их. Пример такого принуждения есть у Димы на сайте.
Про коллег: пусть они закроют ПРИЛОЖЕНИЕ, а потом откроют файл с разрешёнными макросами. Проверить, в каком состоянии находится отслеживание событий можно так: в окне Immediate выполнить строку :
Код
?application.EnableEvents
Обратите внимание на знак вопроса в начале строки. По поводу моего #15: переместите строку Cancel = True внутрь проверки (перед End If). Про Диму: это Дмитрий Щербаков. Вот ссылка на статью.
Ага. Коллеги могут закрывать файл, не вводя ничего в ячейку F9. Но, если они его каким-то образом изменяют и хотят записать, то выдается ошибка "не заполнена ячейка F9". Таким образом исходная проблема решена. Большое спасибо! Пойду посмотрю, как сделать обязательным включение макросов ))