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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

Leave a Comment