| |
ブック１のほうで、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 & "が閉じられました。" '確認用メッセージ
'ここにブック１を閉じる処理を記述
End If
End Sub
次に、ブック１のThisWorkbookモジュールに、以下の記述をします。
Private App As CloseChack
Private Sub Workbook_Open()
Set App = New CloseChack
End Sub
これで、ブック１を開きなおして、ブック２を手動で閉じてみてください。
|
|
[名前なし]
- 05/10/1(土) 21:58 -
