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 |