вот так    
ActiveWorkbook.Save (ActiveWindow только частный случай, окон в одном файле может быть несколько)  
Application.DisplayAlerts = False (хотя это не спасет, если файл будет открыт только для чтения)

{quote}{login=Лузер}{date=27.12.2007 11:46}{thema=}{post}Артем! Просят закрыть без сохранения, а ты предлагаешь сохранить.  
ActiveWorkbook.Saved = True - говорит, что книга уже сохранена, ничего не сохраняя  
или  
ActiveWindow.Close False - закрыть без сохранения{/post}{/quote}  
ага, ошибся, сорри

ActiveWindow.Close False - А куда конкретно это надо прописать или вставить???

Как куда - в модуль книги на событие закрытия книги.

{quote}{login=marat}{date=13.03.2011 11:25}{thema=}{post}Вставил отдельным модулем. не работает ({/post}{/quote}  
Вы, если спрашиваете, то хоть читайте ответы. Ведь ясно сказал - В МОДУЛЬ КНИГИ. В ответ: "Вставил отдельным модулем..." Тогда или вызывайте этот макрос или явно на событие пишите:  
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
ActiveWindow.Close False  
End Sub

Вполне можно событие закрытия книги обрабатывать не в модуле книги (как положено), а в стандартном модуле (как попытался сделать marat), но процедурой  
 
Sub Auto_Close()  
ActiveWindow.Close False  
End Sub