|
まず、VBEのメニューで「挿入む「クラスモジュール」を選択して
クラスモジュールを追加して下さい。デフォルトでは Class1 という名前に
なっているはずです。そこに以下のコードを入れます。
Public WithEvents App As Application
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Dim MyB As Workbook
For Each MyB In Workbooks
If MyB.Name = Wb.Name And Not MyB Is Wb Then
Wb.Close False: Exit For
End If
Next
End Sub
そして標準モジュールの先頭から
Dim X As New Class1
Sub Auto_Open()
Set X.App = Application
End Sub
を入れて、保存して閉じて下さい。
再度開いたときから、アプリケーションレベルのイベントが自動起動します。
そのまま「ファイル」「開く」で同じブックを開こうとしてみて下さい。
一瞬開きかけるのが分かると思いますが、すぐに閉じるはずです。
|
|