Хочу сделать запрет на сохранение документа. Пишу
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Application.Run "Module1.Несохранять"
Cancel = Стоп
End Sub


как же теперь сохранить vba код? у меня генерится запрет на сохранение.

ShamanusDnG,

ну самый простой способ на мой взгляд такой
создаете глобальную переменную типа ToSaveOrNotToSave

присваиваете ей например True отдельной процедурой.


В коде Workbook_BeforeSave ставите проверку на значение этой переменной. Если true, то сэйвим, иначе cancel=true


Вот если Вам надо сохранить код, то запускаете процедуру, если Вам не надо то соответственно...
автор
Dim SaveOrNotSave As Boolean
Dim Стоп As Boolean

Private Sub p1()

SaveOrNotSave = True

End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next

If SaveOrNotSave Then
Application.Run "Module1.СохрНомераПослСФ"
Application.Run "Module1.Несохранять"
Cancel = Стоп
End If
End Sub



а где запускать p1 ?

ShamanusDnG,

тогда скорее так



тогда получится так -
1. вы разработчик, открыли книгу, внесли изменения.
2. Глобальная переменная SaveOrNotSave по умолчанию на момент открытия книги равна False
3. Запускаете непосредственно из кода процедуру P1 (просто встаньте на код процедуры и нажмите Run Sub или F5), глобальная переменная равна True
4. Сохраняете книгу - при этом книга обращается к глобальной переменной, видит что она True и игнорирует Ваши операции по отмене сохранения и и выполняет сохранение.


Спасибо, Вы очень помогли :)