ActiveWorkbook Path VBA宏Excel 2013出错？

Question

i want to create a vba macro for excel 2013. this vba macro must be available for all excel files, i make a search in the internet and i found that i must put the code in Excel add-in, so i try to make a code for event opening of excel; the code is the following:

Private Sub Workbook_Open()
 If (ActiveWorkbook.Path = "C:\GED\TEMP") Then
     MsgBox "Hello"
 End If
End Sub

the problem is that when i open excel file, vba dont know the active workbook because it opens the file in XLSTART first then my current file, so i have the following error:Run-time error '91 ': Object variable or With block variable not set. So any idea please; i should check the path of the workbook at the opening

Answer 1

You'll need Application-level events to trap the opening of any workbook. Replace your code with this:

Option Explicit
Private WithEvents app As Excel.Application

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
    If UCase$(Wb.Path) = "C:\GED\TEMP" Then MsgBox "Hello"
End Sub

Private Sub Workbook_Open()
 Set app = Application
End Sub