|
ブック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を手動で閉じてみてください。
|
|