• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Ejecutar macro solo cuando haya conexión a internet

ivan26

Member
Buenas noches, quisiera adaptar este código para que funcione en excel de 64 bits.
Código:
Private Declare Function EstadoConexionInternet Lib "wininet" _
  Alias "InternetGetConnectedState" (ByRef opciones As Long, _
    ByVal reservado As Long) As Long
Private Function InternetConectado() As Boolean
  Dim opciones As Long
  EstadoConexionInternet opciones, 0&
  InternetConectado = opciones And (&H1 Or &H2 Or &H4)
End Function
Esta es la conversación anterior: http://foro.todoexcel.com/ejecutar-macro-solo-cuando-haya-conexion-a-internet-t43403.html

Muchas gracias de antemano
 

Héctor Miguel

Well-known member
ivan26 dijo:
... quisiera adaptar este código para que funcione en excel de 64 bits...
solo cambia la llamada a la API agregando "PtrSafe" +/- asi:
Código:
Private Declare PtrSafe Function EstadoConexionInternet Lib "wininet" _
  Alias "InternetGetConnectedState" (ByRef opciones As Long, _
    ByVal reservado As Long) As Long
saludos,
hector.
 
Arriba