Как закрыть Microsoft Excel (с сохранением всех изменений и без сохранения)?

Application.Quit

• При наличии несохранённых изменений в открытых рабочих книгах, на экран будет выведено стандартное диалоговое окно, предлагающее сохранить изменения. Если появление этого сообщения нежелательно, то можно сохранить все рабочие книги (конечно, если сохранение входит в Ваши планы)
• Однако, при сохранении книги на экране могут появляться и другие сообщения, например, о перезаписи существующего файла.
• Кроме того, при сохранении книг(и), а также закрытии приложения, а стало быть и всех открытых рабочих книг, будут вызваны события Workbook_BeforeSave, Workbook_BeforeClose, которые могут отменить сохранение и закрытие книги.

Стало быть, если Вы хотите избежать всех вышеперечисленных "неприятностей", то имеет смысл недопустить вызов и выполнение этих событий, а также отключить вывод стандартных сообщений

With Application
     .EnableEvents = False
     .DisplayAlerts = False
     Dim iBook As Workbook '
     For Each iBook In .Workbooks
         iBook.Save
     Next
     .Quit
End With

Если же Вам необходимо закрыть Excel, причём без сохранения изменений, то :

With Application
     .EnableEvents = False
     .DisplayAlerts = False
     .Quit
End With