Обойти всплывающее окно входа в систему SAP, которое появляется при доступе к SAP через макрос Excel

Question

У меня есть макрос, который подключается к SAP и извлекает данные, у меня есть задача автоматизации макроса, чтобы данные были извлечены в запланированное время. Но проблема в том, что я получаю всплывающее окно при запуске макрос, в котором мне нужно нажать на кнопку ОК, чтобы подключить его к SAP.

У меня есть код

If obj_SAP_Connection.Logon(0, False) <> True Then 

, где я изменил его на

 If obj_SAP_Connection.Logon(0, True) <> True Then

, который обходит всплывающее окно, но показывает сообщение об ошибке, относящееся к инициализации RFC

Я вставил полный код макроса для ссылки ниже, помогите разобраться в проблеме

    Function Connect_to_SAP() As Integer

При ошибке GoTo ERR_CTS int_ERROR_CODE_CURR = 107

If obj_SAP_Connection.IsConnected <> 1 Then

'XXXXXXX
'    obj_SAP_Connection.Client = "600"
'    obj_SAP_Connection.ApplicationServer = "warusap001.diageo.net"
'    obj_SAP_Connection.System = "DEP"
''    obj_SAP_Connection.SystemNumber = "01"
'    obj_SAP_Connection.User = "DOBOIS"
'    obj_SAP_Connection.Language = "EN"
'    obj_SAP_Connection.autologon = 1
'    obj_SAP_Connection.SNC = True
'    obj_SAP_Connection.SNCName = "p:DoboIstv@GUWW.NET"
''    'obj_SAP_Connection.SNCName = "p:sapDEP/warusap001.diageo.net@GUWW.NET"
'    obj_SAP_Connection.SNCQuality = 3
'XXXXXXX

    obj_SAP_Connection.Autologon = 0
'Try to log on to SAP
  If obj_SAP_Connection.Logon(0, False) <> True Then
    'str_System = obj_SAP_Connection.System
    int_ERROR_CODE_CURR = 109
    GoTo ERR_CTS
  End If
  str_System = obj_SAP_Connection.System
End If

'obj_SAP_Connection.Logoff

Connect_to_SAP = 0
On Error GoTo 0
Exit Function

ERR_CTS:
  ADD_VBA_Error "SAP_NEW", "Connect_to_SAP"

  Add_item_LOG Convert_Err_Code_to_Msg(int_ERROR_CODE_CURR), CStr("Error code : " & int_ERROR_CODE_CURR), _
  "", "", "", "", False, "E"

  Connect_to_SAP = int_ERROR_CODE_CURR
End Function



Sub SAP_Initialize_Objects()

  Set obj_BAPI_Control = CreateObject("SAP.Functions")
  Set obj_SAP_Connection = obj_BAPI_Control.Connection
    bln_SAP_Objects_Initiated = True

End Sub



Function SAP_Initialize_RFC_RT()
'_SIRR
On Error GoTo ERR_SIRR
int_ERROR_CODE_CURR = 102

If bln_SAP_Object_RFC_RT_Initiated = False Then

  'Function Module
    Set obj_SAP_FM = obj_BAPI_Control.Add("RFC_READ_TABLE")

  'IMPORTS
    Set obj_SAP_RT_IMP_QUERY_TABLE = obj_SAP_FM.Exports("QUERY_TABLE")
    Set obj_SAP_RT_IMP_DELIMITER_OPT = obj_SAP_FM.Exports("DELIMITER")
    Set obj_SAP_RT_IMP_NO_DATA_OPT = obj_SAP_FM.Exports("NO_DATA")
    Set obj_SAP_RT_IMP_ROWSKIPS_OPT = obj_SAP_FM.Exports("ROWSKIPS")
    Set obj_SAP_RT_IMP_ROWCOUNT_OPT = obj_SAP_FM.Exports("ROWCOUNT")

  'TABLES
    Set obj_SAP_RT_TBL_DATA = obj_SAP_FM.Tables("DATA")
    Set obj_SAP_RT_TBL_FIELDS = obj_SAP_FM.Tables("FIELDS")
    Set obj_SAP_RT_TBL_OPTIONS = obj_SAP_FM.Tables("OPTIONS")

  bln_SAP_Object_RFC_RT_Initiated = True

End If

SAP_Initialize_RFC_RT = 0
On Error GoTo 0
Exit Function
ERR_SIRR:
  ADD_VBA_Error "SAP_NEW", "SAP_Initialize_RFC_RT"
  Add_item_LOG Convert_Err_Code_to_Msg(int_ERROR_CODE_CURR), CStr("Error code : " & int_ERROR_CODE_CURR), _
  "", "", "", "", False, "E"
  SAP_Initialize_RFC_RT = int_ERROR_CODE_CURR
End Function



Function SAP_Close_RFC_RT()
'_SCRR
On Error GoTo ERR_SCRR
int_ERROR_CODE_CURR = 103

  If bln_SAP_Object_RFC_RT_Initiated = True Then
  'IMPORTS
    Set obj_SAP_RT_IMP_QUERY_TABLE = Nothing
    Set obj_SAP_RT_IMP_DELIMITER_OPT = Nothing
    Set obj_SAP_RT_IMP_NO_DATA_OPT = Nothing
    Set obj_SAP_RT_IMP_ROWSKIPS_OPT = Nothing
    Set obj_SAP_RT_IMP_ROWCOUNT_OPT = Nothing

  'TABLES
    Set obj_SAP_RT_TBL_DATA = Nothing
    Set obj_SAP_RT_TBL_FIELDS = Nothing
    Set obj_SAP_RT_TBL_OPTIONS = Nothing

  'Function Module
    Set obj_SAP_FM = Nothing

    bln_SAP_Object_RFC_RT_Initiated = False

  End If

SAP_Close_RFC_RT = 0
On Error GoTo 0
Exit Function
ERR_SCRR:

  ADD_VBA_Error "SAP_NEW", "SAP_Close_RFC_RT"
  Add_item_LOG Convert_Err_Code_to_Msg(int_ERROR_CODE_CURR), CStr("Error code : " & int_ERROR_CODE_CURR), _
  "", "", "", "", False, "E"
  SAP_Close_RFC_RT = int_ERROR_CODE_CURR
End Function