『マクロで終了』（ユウ）
エクセルを強制終了するマクロを作りたいんですけどどうすればいいですか？
できれば【"Book1"への変更を保存しますか？】
という画面も表示させずに上書き保存されずに強制終了させるマクロをつくりたいです。
VBAの知識が全くありませんのでできるだけ詳しく教えていただけたらうれしいです。

エクセル２００３
OSXPです

過去の[[20060809154648]]コスケさんへの解答を詳しく説明して
ほしいです。


----
標準モジュールに
 Sub try2()
   Dim wb As Workbook
   Application.DisplayAlerts = False
   For Each wb In Workbooks
       If wb.Name <> ThisWorkbook.Name Then
          wb.Close SaveChanges:=True '上書き保存あり　Falseなら上書き保存なし
       End If
   Next
   Application.Quit
   ThisWorkbook.Close SaveChanges:=True '上書き保存あり　False上書き保存なし
 End Sub

----
ありがとうございます。
解決しました。

もう一つ質問なのですが、メニューバーなどから普通に終了するときも
【"Book1"への変更を保存しますか？】みないな画面を出したくありません。
終了時に自動起動するマクロは作成できないのでしょうか？
----
 Thisworkbookモジュールに

 Private Sub Workbook_BeforeClose(Cancel As Boolean)

 End Sub

 として、その中に記述するか

 標準モジュールに

 Private Sub Auto_Close()

 End Sub

 として、その中に記述してみてください。
 （ｍｏｍｏ）
----
ありがとうございました。
感謝です。
また質問したときはよろしくお願いします。