Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


52229 / 76732 ←次へ | 前へ→

【29344】Re:ブッククローズの認識
回答  [名前なし]  - 05/10/1(土) 21:58 -

引用なし
パスワード
   ブック1のほうで、VBEのメニュー「挿入」→「クラス モジュール」でクラスモジュールを
挿入します。

挿入されたクラスモジュールのオブジェクト名を「CloseCheck」に変更し、次のコードを
記述します。

Private WithEvents App As Excel.Application

Private Sub Class_Initialize()
  Set App = Application
End Sub

Private Sub Class_Terminate()
  Set App = Nothing
End Sub

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
  If Wb.Name <> ThisWorkbook.Name Then
    MsgBox Wb.Name & "が閉じられました。" '確認用メッセージ
    'ここにブック1を閉じる処理を記述
  End If
End Sub

次に、ブック1のThisWorkbookモジュールに、以下の記述をします。

Private App As CloseChack

Private Sub Workbook_Open()
  Set App = New CloseChack
End Sub

これで、ブック1を開きなおして、ブック2を手動で閉じてみてください。

0 hits

【29323】ブッククローズの認識 mam 05/9/30(金) 17:12 質問
【29344】Re:ブッククローズの認識 [名前なし] 05/10/1(土) 21:58 回答
【29366】Re:ブッククローズの認識→引用中 mam 05/10/3(月) 10:41 お礼
【29367】Re:ブッククローズの認識→引用中 mam 05/10/3(月) 11:06 お礼

52229 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free