Закрытие Excel (не знаю что ей не нравиться) из VBA

[Юнлинг]

Уважаемые господа!

В программе написанной в VBA последнии в последних строчках кода я хотел сделать чтобы автоматически информация сохранялась на диске, стерался код и закрывался Excel.
nload UserForm1
ActiveWorkbook.SaveAs Filename:= _
"T:\MIHKPD\tb " + Trim(Str(Month(nat_den))) + " " + Trim(Str(Year(nat_den))) + ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
For Each iVBComponent In ThisWorkbook.VBProject.VBComponents
With iVBComponent
Select Case .Type
Case 1 To 3: .Collection.Remove iVBComponent
Case 100: .Codemodule.deletelines 1, .Codemodule.countoflines
End Select
End With
Next
ActiveWorkbook.Save
Application.Quit
все работает ОК. Однако при выполнении последней строчки Excel выводит предупреждающую надпись о необходимости сохранения таблицы. После клика мыши подтверждения сохранения Excel успешно завершает работу.
Вопрос как завершить работу Excel безусловно (т.е. , без предупреждающей надписи)?

Заранее благодарен.

[EducatedFool]

Цитата из справки по VBA:

Quit Method

If unsaved workbooks are open when you use this method, Microsoft Excel displays a dialog box asking whether you want to save the changes. You can prevent this by saving all workbooks before using the Quit method or by setting the DisplayAlerts property to False. When this property is False, Microsoft Excel doesn’t display the dialog box when you quit with unsaved workbooks; it quits without saving them.

If you set the Saved property for a workbook to True without saving the workbook to the disk, Microsoft Excel will quit without asking you to save the workbook.

Соответственно, есть 3 варианта:

1) пример, приведённый в справке:

For Each w In Application.Workbooks
    w.Save
Next w
Application.Quit

2) без сохранения книги:

ThisWorkbook.Saved = True
Application.Quit

3) самый простой способ:

Application.DisplayAlerts = False '  запрещаем вывод предупреждений
Application.Quit

[Юнлинг]

Благодарю!

Последнее время из-за пониженной скорости Internet вызов справки на работе у меня стал очень проблематичным (порой она просто не выводиться). Рассмотрю все варианты но скорее всего просто воспользуюсь третьим способом. Книгу из-за некоторых проблем сети приходиться сохраять в двух местах.