ExcelVBAについての質問です。

アプリケーションレベルのイベントを定義しないと難しいようです。

次のページを参考に実装してみました。

http://devlibrary.businessobjects.com/businessobjectsxir2/ja/ja/...

Excel2010ではテストしていませんが、Excel2007では次の方法でできました。

１　PERSONAL.xlsにクラスモジュールを追加して、プロパティウィンドウで名前をAppRefClassとします。

２　次のコードをそのクラスモジュールにコピペ。

Public WithEvents boapp As Application

Private Sub boapp_WorkbookOpen(ByVal Wb As Workbook)
    Dim URLBOOK As String
    URLBOOK = Wb.Name
    If InStr(1, URLBOOK, "任意文字") > 0 Then
        MsgBox "任意文字を含むブックを開きました"
    End If
End Sub

３　PERSONAL.xlsに標準モジュールを追加

４　その標準モジュールに次のコードをコピペ。

Dim AppRef As New AppRefClass
    
Sub Auto_Open()
    Set AppRef.boapp = Application
End Sub