エクセルを閉じる時に保存メッセージを表示させずに保存しないで閉じるには

質問

いつもお世話になります。初心者ですのでよろしくお願いします。
あるエクセルファイル(定型の表、セルはブランク)で毎回違うデータを入力して印刷しています。
印刷後そのファイルを閉じる際に、ツールバーの右側の×をクリックして閉じますが、データを入力しているのでいつも「'ファイル名xls'への変更を保存しますか?」というメッセージが表示され「いいえ」を選択して閉じています。
このファイルは、データを入力して印刷することが目的なので、×をクリックしたらこのメッセージを表示させないで、データも保存せずにファイルを閉じたいのですが、そのような設定はできるでしょうか?
よろしくお願いします。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

Alt+ F11 (Altを押しながら、F11を押します）

そうすると、Visual Basic Editor 画面が出てきます。
次に、挿入－標準モジュール　と開けて、クリックしますと、画面が現れてきますので、以下のコードを貼り付けて、

'標準モジュールのみ

Sub Auto_Close()
　ThisWorkbook.Close False
End Sub

Alt+ F11 を押し、一旦、ファイル－上書き保存で、保存してください。（保存しないと、なくなってしまいますから）次からは、×を押してもメッセージは出てきません。

お礼

早速のご回答ありがとうございました。
思い通りにできました。

回答No.2

hana-hana3

VBE の ThisWorkbook を開いて下記のコードを貼付けてから、ファイルを保存してください。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks.Count = 1 Then
Application.DisplayAlerts = False
Application.Quit
Else
ThisWorkbook.Close SaveChanges:=False
End If
End Sub

お礼

ご回答ありがとうございました。