Tweet
Gente de antemano gracias por al ayuda y disculpen si lo que consulto es una pavada (les confieso que busque bastante hasta llegar aqui).
Recibí un archivo en mi trabajo (de una persona que dejó la compañia) el cual se actualiza a partir de una macro que se conecta con SAP BW.
Me encomendaron actualizar varios de éstos archivos y mi idea es, dejarlo actualizando para realizar otras tareas, pero siempre necesito estar en la computadora para completar mi usuario y contraseña cada vez que la macro lo requiere.
Ubique la parte de la macro donde se conecta con BW y me pide completar con mi user y pass, podran decirme que codigo (y donde) lo debo incluir para que se loguee automaticamente con mi user joel04 y pass 12345:
Function dialIn() As Boolean
If isConnected Then
dialIn = True
Else
dialIn = False
If dialInPaused Then Exit Function
If prepareConnection Then
With p_connectionObj
Do
Application.Visible = True
If .Logon(GetActiveWindow(), False) Then
Application.Visible = True
If initConnection Then dialIn = True Else .Logoff
Exit Function ' dialIn = True iff .logon and initConnection were successful
Else
trace True, "no Connect"
If .isConnected = 2 Then ' user pressed Cancel button
trace False, "cancelled"
dialInPause ' suppress further logon dialogs for 2 secs
Exit Function
End If
End If
Loop
End With
End If
End If
End Function
Gracias
Recibí un archivo en mi trabajo (de una persona que dejó la compañia) el cual se actualiza a partir de una macro que se conecta con SAP BW.
Me encomendaron actualizar varios de éstos archivos y mi idea es, dejarlo actualizando para realizar otras tareas, pero siempre necesito estar en la computadora para completar mi usuario y contraseña cada vez que la macro lo requiere.
Ubique la parte de la macro donde se conecta con BW y me pide completar con mi user y pass, podran decirme que codigo (y donde) lo debo incluir para que se loguee automaticamente con mi user joel04 y pass 12345:
Function dialIn() As Boolean
If isConnected Then
dialIn = True
Else
dialIn = False
If dialInPaused Then Exit Function
If prepareConnection Then
With p_connectionObj
Do
Application.Visible = True
If .Logon(GetActiveWindow(), False) Then
Application.Visible = True
If initConnection Then dialIn = True Else .Logoff
Exit Function ' dialIn = True iff .logon and initConnection were successful
Else
trace True, "no Connect"
If .isConnected = 2 Then ' user pressed Cancel button
trace False, "cancelled"
dialInPause ' suppress further logon dialogs for 2 secs
Exit Function
End If
End If
Loop
End With
End If
End If
End Function
Gracias