Tenta isso:
viewtopic.php?t=5113&p=26745

Eu já tenho um meio de verificar se tem conexão com a internet disponível, o problema é quando ela está limitada, o excel acaba se enrolando muito para identificar que está sem internet, isso somente quando está limitada, quando está com internet funciona rápido, sem internet também é rápido, mas quando limitada, leva muito tempo para identificar...

Entendi.
Eu não saberia dizer... e posso procurar no google pra vc, mas não tenho como testar, não sei como forçar a conexão a ficar limitada...

Ela fica limitada, exemplo, quando um roteador wireless não está recebendo o acesso a internet do modem, dai as máquinas conectadas ao roteador somente se conectam ao roteador, não recebendo o acesso a internet que vem do modem...

Ela fica limitada, exemplo, quando um roteador wireless não está recebendo o acesso a internet do modem, dai as máquinas conectadas ao roteador somente se conectam ao roteador, não recebendo o acesso a internet que vem do modem...

Fiz isso, tirei o cabo da rede do roteador. Meu computador continuou conectado conforme esperado. Porém, não ficou limitada a conexão. Quando testei com funções que achei na internet (abaixo), dizia q estava online. E de fato, o computador dizia q estava. Nem limitada era informado.

Me ensina a deixar intencionalmente llimitada, e eu testo esta e outras opções...

Private Declare Function InternetGetConnectedState _
   Lib "wininet.dll" (ByRef dwflags As Long, _
   ByVal dwReserved As Long) As Long
Private Const INTERNET_CONNECTION_MODEM As Long = &H1
Private Const INTERNET_CONNECTION_LAN As Long = &H2
Private Const INTERNET_CONNECTION_PROXY As Long = &H4
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Function IsInternetConnected() As Boolean
    Dim L As Long
    Dim R As Long
    R = InternetGetConnectedState(L, 0&)
    If R = 0 Then
        IsInternetConnected = False
    Else
        If R <= 4 Then
            IsInternetConnected = True
        Else
            IsInternetConnected = False
        End If
    End If
End Function
 
Sub AAA()
    If IsInternetConnected() = True Then
        ' connected
    Else
        ' no connected
    End If
End Sub

fernando,
acho que ele quer que seja testado se existe conexão externa

esbarrei na mesma questão quando estava adaptando a minha planilha para um amigo usar com loterias
minha internet é um "O", então tinha hora que ficava um longo tempo tentando atualizar os resultados.

o bom seria a rotina tentar fazer ping com um site para ver se a conexão existe ou se é apenas rede interna.

no meu caso larguei de lado pq a internet dele é boa --->800k<>50M

Isso eu entendi. Só não consigo forçar o problema para acontecer, e assim, não consigo testar nenhuma rotina da internet...

Preciso aprender a forçar a conexão limitada.... daí eu consigo apresentar solução saisfatória pra vcs...

talvez derrubando a conexão externa durante o uso,
bem não sei como não uso larguei de lado

mas seria legal algo "mais ou menos" assim...
..........................................................................
ping google.com >---("por ser algo rápido e sempre disponível")
conta tempo de resposta
se demorar -->> falha na conexão
Respondeu-->> tem internet
...........................................................................

O problema dele é esse demora. Ele quer impedir a demora...

Mensagempor mdosmagos » 28 Jul 2014, 23:15
Ela fica limitada, exemplo, quando um roteador wireless não está recebendo o acesso a internet do modem, dai as máquinas conectadas ao roteador somente se conectam ao roteador, não recebendo o acesso a internet que vem do modem...

não sei se ent2ndi bem
mas como enfrentei o mesmo problema
imagino que seja ao fato que o programa identifica a rede mas não sabe se é interna ou externa e fica tentando acessar o site.
aí leva uma eternidade com o excel travado naquilo de esperar o site responder
sobre rede limitada, pode ser uma simples falha de comunicação
ou de configuração
se bem me lembro, o xp indicava rede limitada quando tinha rede interna mas não tinha internet ou era questão de configuração de roteador, não lembro bem.

Opa, aqui fica limitada quando não tenho internet, quando ela não chega ao roteador, dai fica um ponto de exclamação no ícone de rede. Com isso o excel leva um tempão para identificar que está sem internet. Tem usuários que usam 3G/4G, em alguns lugares é uma porcaria, dai acontece a mesma coisa, leva muito tempo para atualizar os dados, fica tentando atualizar e no final não atualiza.
Fiz uma chamada no site que busco os dados, retorna um valor, dai identifico que tem internet, mas quando está limitada leva muito tempo, o excel se perde.