Зпрет на сохранение книги эксель

[kooleer]

Всем привет
тут на форуме была такая тема уже - http://forum.developing.ru/showthread.p ... word-excel)
но хочу вернуться и вот почему:
есть код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
Да, он не даёт сохранять изменения, но блин я не могу его сохранить в книге.
Т.е.
есть книга, шаблон, в неё вносятся данные, но сохранять эти изменения низя, но есть "умные", которые пытаются сохранить.
книга эта постоянно открывается и закрывается.
Помогите плз сохранить этот код в книге.
Заранее спасибо.

[nilem]

Действительно, никак
Попробуйте в А1 на Лист1 поставить единичку, и сохраняйте

Код: Выделить всё

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   If Sheets("Лист1").Range("A1") = 1 Then Exit Sub
   MsgBox "Нельзя сохранить эту книгу!"
   Cancel = True
End Sub

Потом эту единицу убираем, и файл перестанет сохраняться. Ну, например.

[kooleer]

Спасибо за ответ.
Натолкнули на мысль))