Ошибка с ActiveWorkbook Путь VBA macro Excel 2013?

Question

Я хочу создать макрос vba для excel 2013. этот макрос vba должен быть доступен для всех файлов excel, я делаю поиск в Интернете, и я обнаружил, что должен поместить код в надстройку Excel, поэтому я пытаюсь сделать код для открытия события excel; код выглядит следующим образом:

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

проблема заключается в том, что когда я открываю первенствую файл, VBA не знает активную рабочую книгу, потому что он открывает файл в Xlstart первый тогда мой текущий файл, так что у меня есть следующее сообщение об ошибке: Run -time error '91 ': Объектная переменная или С заблокированной переменной блока. Так что любая идея, пожалуйста; я должен проверить путь книги на открытии

Answer 1

Вам понадобятся события уровня приложения, чтобы помешать открытию любой книги. Заменить код с этим:

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