Как узнать был ли запущен Microsoft Excel вручную или программно?

code: #vba
If Application.UserControl = True Then
   MsgBox "Вы запустили программу вручную", , ""
Else
   MsgBox "Программно : CreateObject/GetObject", , ""
End If
code: #vba
Dim XLApp As Excel.Application 'Object
Set XLApp = CreateObject("Excel.Application")
 
If XLApp.UserControl = True Then
   MsgBox "Скорее всего, вручную ...", , ""
Else
   MsgBox "Программно, т.е. CreateObject/GetObject", , "": XLApp.Quit
End If

Под программным, конечно же, подразумевается получение доступа к объекту только с помощью функций CreateObject/GetObject

Поделиться:

Похожие статьи: