Запрет запуска программы на VBA в случае если Excel уже открыт

[kovalevskivf]

Каким образом перед запуском программы на VBA сделать проверку на предмет открыт или не открыт Excel на компе. Если уже открыт, то запретить запуск моей программы. Нашел вариант решения проблемы:

If Tasks.Exists(Name:="Microsoft Excel") = True Then
...

Вставляю ее в Private Sub Workbook_Open(), однако у меня этот код не работает, выскакивает ошибка 424.
Пожалуйста, подскажите в чем тут дело и можно ли решить мою проблему.

[SAS888]

Не совсем понятно, из какого приложения Вы собираетесь запускать процедуру на VBA, чтобы перед ее запуском

сделать проверку на предмет открыт или не открыт Excel на компе

Может быть Вам нужно запретить открытие книги, если Excel уже открыт? Тогда можно в модуль "Эта книга" открываемого файла Excel вставить код

Private Sub Workbook_Open()
    If Workbooks.Count > 1 Then ThisWorkbook.Close
End Sub

Т.е. при открытии выполнить проверку: если уже открыта хотя бы одна книга, то сразу закрыть эту.

[kovalevskivf]

Да, именно это я имел в виду. Большое спасибо за помощь!

[Aent]

kovalevskivf, Task.Exists это конструкция из VBA MS WORD.
Помимо способа, указанного SAS888 можно попробовать код

Dim oEx as Object
On error resume next
Set oEx =  GetObject(, "Excel.Application")
if Not oEx is Nothing then
     Debug.Print "Есть активный Excel"
     'дополнительно можно проверить свойство oEx.Visible
else
     Debug.Print "Нет активного Excel"
end if

для того что бы узнать есть ли в системе активный экземпляр Excel из отличного от Excel приложения

[kovalevskivf]

Спасибо, буду пробовать.