Проверить запушен Microsoft Excel вручную или программно- Visual Basic(Бейсик)

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