отключить системное сообщение о сохранении документа - Microsoft Office Excel

Bezdar · 17.12.2008, 13:16

Как отключить системное сообщение о сохранении документа?

BeforeSave Cancel=true - не срабатывает

Помогите, плиз, подскажите альтернативный вариант.

SAS888 · 17.12.2008, 13:29

Попробуй в модуль "Эта книга" вставить код:

Код:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Close Savechanges = False
End Sub

Может устроит.

EducatedFool · 17.12.2008, 15:19

Или такой код:

Код:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
End Sub

Bezdar · 19.12.2008, 14:00

Спасибо за подсказку.

Помогло:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close False
End Sub

17.12.2008, 13:16	#1
Bezdar Форумчанин Регистрация: 03.06.2008 Сообщений: 213	отключить системное сообщение о сохранении документа Как отключить системное сообщение о сохранении документа? BeforeSave Cancel=true - не срабатывает Помогите, плиз, подскажите альтернативный вариант.

17.12.2008, 13:29	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Попробуй в модуль "Эта книга" вставить код: Код: `Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close Savechanges = False End Sub` Может устроит. Чем шире угол зрения, тем он тупее.

17.12.2008, 15:19	#3
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	Или такой код: Код: `Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Saved = True End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Stack Overflow при сохранении	Shouldercannon	Общие вопросы Delphi	1	20.05.2009 11:46
кривая кодировка при сохранении в txt	SarahConner	Общие вопросы Delphi	7	28.04.2009 15:33
сообщение с вопросом о сохранении при закрыти формы. Delphi	aks	Помощь студентам	3	23.03.2009 17:09
Ошибка при сохранении текста перед выходом	Shouldercannon	Общие вопросы Delphi	1	17.12.2008 14:42
Не отключается системное сообщение	Bezdar	Microsoft Office Excel	11	10.06.2008 10:10

19.12.2008, 14:00	#4
Bezdar Форумчанин Регистрация: 03.06.2008 Сообщений: 213	Спасибо за подсказку. Помогло: Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close False End Sub