Excelブックを保存しないで終了するには

質問

現在Win7,Excel2010、Focus Talk Ver3（音声読み上げソフト）の入ったパソコンを使用しています。

視覚障害者のために計算式の入ったエクセルブックがあります。
使用者の人はエクセルを起動させ、数値を入力して結果を音声読み上げソフトが読み上げてくれます。

使用者は単純に計算結果を読み上げてくれればそれでよく、そのブックを保存せずに終了したいわけです。エクセルを終了させるためにAltキーとF4キーを押すわけですが、保存するかダイアローグが表示されます。

一応自動終了のために以下のマクロを作成しました。何も編集せずAltキーとF4キーを押すと保存するかどうかのダイアローグは出ませんが、編集すると終了時ダイアローグが出ます。

Sub CloseWorkbook()
Application.Quit
Windows("三角関数マクロ.xlsm").Close True
End Sub

編集してもダイアローグを表示せずに終了する方法はありませんでしょうか。またできれば、ひとつのキーだけでExcelを自動終了させる方法はありませんでしょうか。

よろしくお願いします。

回答No.1

mt2008 · ベストアンサー

対象BookのThisWorkBookモジュールにコレ↓で如何でしょう。

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

お礼

ご回答いただき、ありがとうございます。
ご提案いただいた内容に変更したところ、編集しても保存を促すダイアローグが出なくなりました。

終了時、AltキーブラスF4キーを押すとブックが閉じられ、再度AltキープラスF4キーを押すとExcelが終了する状況になりました。

ありがとうございます。