前回(https://teratail.com/questions/35437)で解決し切れなかったものが判明したため、再度質問させていただきます。
Excel VBAで、名称違いのほぼ同一内容のxlsブックを同時に開いているときに、片方のブックを終了しようとよくわからない挙動をするので、それの修正についての案をご教授ください。
片方のファイル(A)は不明なエラーのためにどんなタイミングでもApplication.Quitでエクセルごと終了。
もう片方のファイル(B)は単独時と複数展開時で処理内容を変更しています。
下記のコードは、最初のにAとBの両方にそれぞれ記載されているコード。
次にAのみ記載されているコード、共通コードのCanClose = True以降、System_CloseのEnd Subまで。
最後にBにのみ記載されているコード、共通コードのCanClose = True以降、System_CloseのEnd Subまでとなっています。
Excel2003 SP3
---共通部分---
---ThisWorkbook---
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CanClose = False Then
System_Close
End If
If CanClose = False Then
Cancel = True
End If
End Sub
---標準モジュール---
Public CanClose As Boolean
Sub System_Close()
Application.ScreenUpdating = False
Dim CMsg, CStyle, CTitle, CResponse, CString
CMsg = "Excelを終了します。よろしいですか?"
CStyle = vbYesNo
CTitle = "終了"
Response = MsgBox(CMsg, CStyle, CTitle)
If Response = vbYes Then ' [はい] がクリックされた場合、
MyString = "Yes"
(起動時にアプリケーションの邪魔になるためにあらかじめ隠しておいたメニューバー等を表示させるApplication.CommandBars多数、関係なさそうなので割愛)
Application.DisplayAlerts = False '変更保存のメッセージを表示させない
Application.ScreenUpdating = True 'Excelを終了
CanClose = True
---ここまで共通---
A
------
Application.Quit
Else ' [いいえ] がクリックされた場合、Msgboxを閉じる
MyString = "No"
End If
End Sub
B
If Workbooks.Count = 1 Then
ThisWorkbook.Saved = True
Application.Quit
Else
ThisWorkbook.Close False
End If
Else ' [いいえ] がクリックされた場合、Msgboxを閉じる
MyString = "No"
End If
End Sub
AとBのブックを同時に起動させ、Bのブックをアクティブにして右上の閉じるボタンから終了すると、AのBeforeCloseに流れて一連の処理を行った後、BのBeforeCloseに流れてBが閉じる。これの処理をAに流れないようにしたい。
(追記)
Aと空白のブック(Excelの新規ブック作成機能で作成したブックに、
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
のみ記述したもの)で検証(空白のブックをアクティブにしてから右上の閉じるボタンで終了しようとする)を行ったところ、こちらも先にAのBeforeCloseに流れて一連の処理を行った後、空白のブックのBeforeCloseに流れていました。Bと空白のブック(文字どうり新規ブックの作成機能で作成したばかりの何も編集していないブック)を同時に起動させ、空白のブックをアクティブにして右上の閉じるボタンから終了すると、Bのブックだけが終了し、Excel上で終了処理を受け付けない空白のブックが残る。
同様の案件として、空白のブックをアクティブにしてタスクバーからBのブックだけを終了させると、終了処理だけでなくセルの操作も受け付けない空白のブックが残る(Excel上のメニューバーなどは動作する)。
ThisWorkbook.Close Falseの処理に問題があるのかと思い、終了させる前にBをアクティブにするようにしたりIF文と追加して非アクティブ時の挙動について書き足したりしましたが成果無しでした。
1.は他のブックの処理実行時にAの方の処理に向かわないようにする(Aの優先度を下げる?)
2.はBの終了時に他のブックに影響を与えないようにする(少なくともBの終了処理後に他のブックも正常に終了させれるようにしたい、現状Bの終了処理後のブックはタスクマネージャを起動しないと終了できないのでそれの改善)
申し訳ありませんが問題解決へのお力添えをお願いします。
-
気になる質問をクリップする
クリップした質問は、後からいつでもマイページで確認できます。
またクリップした質問に回答があった際、通知やメールを受け取ることができます。
クリップを取り消します
-
良い質問の評価を上げる
以下のような質問は評価を上げましょう
- 質問内容が明確
- 自分も答えを知りたい
- 質問者以外のユーザにも役立つ
評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。
質問の評価を上げたことを取り消します
-
評価を下げられる数の上限に達しました
評価を下げることができません
- 1日5回まで評価を下げられます
- 1日に1ユーザに対して2回まで評価を下げられます
質問の評価を下げる
teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。
- プログラミングに関係のない質問
- やってほしいことだけを記載した丸投げの質問
- 問題・課題が含まれていない質問
- 意図的に内容が抹消された質問
- 過去に投稿した質問と同じ内容の質問
- 広告と受け取られるような投稿
評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。
質問の評価を下げたことを取り消します
この機能は開放されていません
評価を下げる条件を満たしてません
質問の評価を下げる機能の利用条件
この機能を利用するためには、以下の事項を行う必要があります。
- 質問回答など一定の行動
-
メールアドレスの認証
メールアドレスの認証
-
質問評価に関するヘルプページの閲覧
質問評価に関するヘルプページの閲覧
checkベストアンサー
+1
また回答させていただきます。
Excel2003の環境がなく2010での確認です。
回答内容としては前回と同様です。
AのBeforeCloseに流れて
Bの方で、ThisWorkbook.Close
をやるとWorkbook_BeforeCloseイベント
が二重に発生するので、やめることをお勧めします。
この二回目のイベントですが、2010の環境ではBの方に上がります。
2003の環境では、本当にAのイベントでしょうか?
終了処理を受け付けない空白のブックが残る
これも前回の回答通りです。
ブックが複数ある状態では、Application.DisplayAlerts
がFalse
のまま処理を継続しているためです。
前述のThisWorkbook.Close
の代わりにApplication.DisplayAlerts=True
としてください。
投稿
-
回答の評価を上げる
以下のような回答は評価を上げましょう
- 正しい回答
- わかりやすい回答
- ためになる回答
評価が高い回答ほどページの上位に表示されます。
-
回答の評価を下げる
下記のような回答は推奨されていません。
- 間違っている回答
- 質問の回答になっていない投稿
- スパムや攻撃的な表現を用いた投稿
評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。
15分調べてもわからないことは、teratailで質問しよう!
- ただいまの回答率 88.35%
- 質問をまとめることで、思考を整理して素早く解決
- テンプレート機能で、簡単に質問をまとめられる
質問への追記・修正、ベストアンサー選択の依頼
coco_bauer
2016/05/24 14:31
質問です。 Private Sub Workbook_BeforeClose(Cancel As Boolean) は、どのブックに含まれているのでしょうか? 空白のブックが影響を受けるという事は、空白のブックにも含まれているのでしょうか? そもそも、どんな状態の時に、どんな動作をすることを目指しているのでしょうか。 ゴールを明確にしないと、適切な回答は得られないと思います。
KEN_aivan
2016/05/24 15:19
追記させていただきました。
Private Sub Workbook_BeforeClose(Cancel As Boolean)はAとBに記載されています。空白のブックは1.での追記の分を除き、作成したての文字どうり何も書かれていないブックとなっています。