Excel: 複数開いているときの[x]ボタンによる終了

質問

Excel について質問です．

　ファイルを複数開いているときに，一番右上の(タイトルバーの?)[x]ボタンを押すと，開いているすべてのファイルが閉じます．

　これを，アクティブになっているファイルだけ閉じるようにはできないでしょうか．

回答No.6

Wendy02 · ベストアンサー

こんばんは。#5です。

>なんだかうまく書けません．

いいえ、お話は、良く分かりました。「ワード」と比較という言葉で、イメージが沸きました。この前、同じ質問のときに、けんもほろろに書いてしまったので、もう少し、反省の気持ちもあって、今回、書かせていただきました。（人間って勝手なものですね m(__)m ;）

つまり、以下のようなマクロでないと、おっしゃるようにはできない、ということにもなります。
好んで書いているわけではありませんが、基本的な仕様の問題になると、どうしても、こんな風になってしまうのですね。

でも、『ワード』とどうして違うのでしょうね。

#5 では簡単に書いたものの、試行錯誤してしまいました。結果は、以下のようなものですが、この手のものって、見かけは簡単ですが、意外に他人が思うよりも、難しいのですね。（以下は試行錯誤の結果です。）

以下は、個人用マクロブック（PERSONAL.XLS) に登録します。
記録マクロで、登録先を、「個人用マクロブック(PERSONAL.XLS)」にすると、自動的に、「個人用マクロブック」が作られます。作ったら、最初に開いた場所は、たぶん、「標準モジュール」です。何かができてしまってたら、全部削除してしまってください。余計なものは不要です。次に、メニューから、挿入－クラスモジュールで、白いペイン（VBコードを書く場所）を開きます。

出来上がったら、Project(PERSONAL.XLS) というところを、本当に簡単なプロテクトをしてあげると、余計なトラブルにならなくてすみます。理由は、VBE を開けると、その部分のマクロが開いて、つい、いじったりしてしまうからです。（なお難しいパスワードは、お勧めしません。）

なお、ツール－マクロ－セキュリティ－信頼する発行元
□組み込み済みのアドインとテンプレートをすべて信頼する
にチェックを入れてある限りは、「高」の状態でも働きます。

必ず、PERSONAL.XLS を一旦、保存して、Excelを終了して、再び立ち上げると、設定が為されているはずです。なお、十分な検査はされていませんから、お使いになるようでしたら、しばらく、使って様子をみてください。

----------------------------------------------

'Class モジュール(Class1)

Public WithEvents myApp As Application
Private Sub Class_Terminate()
　Set myApp = Nothing
End Sub

Private Sub myApp_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
Dim w As Workbook
On Error Resume Next
Application.EnableEvents = False
If Wb.Name <> ThisWorkbook.Name And myApp.Workbooks.Count > 2 Then
　　Cancel = True
　　myApp.ActiveWorkbook.Close
End If
Application.EnableEvents = True
End Sub

'--------------------------------------------------

'標準モジュール
Public myClass As Class1
Sub Auto_Open()
Set myClass = New Class1
　 Set myClass.myApp = Excel.Application
End Sub