[Resolvido]Problema com hiperlink no Chrome

Olá,

Tenho um problema com links no chrome.

Tenho um form que ao clicar em "Send WPP" ele abre o chrome e envia o whats... mas ele está dando uma mensagem de erro...

Código do botão de Whats:

Código:

Private Sub Comando205_Click()
   
    'copia mensagem por defeito
    Me.SMSmessage = Texto199
    'copia numero celular
    Me.SMSphone = Texto86
    'atualiza link wpp
    Me.linkwpp = Texto93
   
   

Dim GC As Object
Dim WebUrl As String
Dim NavigatorAddress As String

    Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    Set GC = CreateObject("InternetExplorer.Application")
     
'''
Let WebUrl = [linkwpp].value
    Shell (NavigatorAddress & " -url " & WebUrl)
    Sleep (2500)
   
     
    SendKeys "{TAB}"
    Call Sleep(100)
   
    SendKeys "{TAB}"
    Call Sleep(100)
   
    SendKeys "{TAB}"
    Call Sleep(100)
 
    SendKeys "{TAB}"
    Call Sleep(100)
   
    SendKeys "{TAB}"
    Call Sleep(100)
   
    SendKeys "{TAB}"
    Call Sleep(100)
   
    SendKeys "{TAB}"
    Call Sleep(100)
 

   
    SendKeys "~"
    Call Sleep(2000)
   
   
    SendKeys "{TAB}"
    Call Sleep(100)
   
    SendKeys "{TAB}"
    Call Sleep(100)
   
    SendKeys "~"

    Call Sleep(5000)
   
 
    SendKeys "~"
       
    Call Sleep(1000)
   
    End Sub

O outro form tem um botão "Login Esaj" que abre o site esaj do tjsp e loga.. nao está abrindo.. e dá esse erro 3201.

Código desse botão:

Código:

Public Function FazerLoginEsaj()

Dim chromePath As String
chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Shell (chromePath & " -url https://google.com")

Dim GC As Object
Dim WebUrl As String
Dim NavigatorAddress As String

    Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    Set GC = CreateObject("InternetExplorer.Application")
     
'Fazer Login no Esaj

    Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    Set GC = CreateObject("InternetExplorer.Application")
    Let WebUrl = "https://esaj.tjsp.jus.br/sajcas/login?service=https%3A%2F%2Fesaj.tjsp.jus.br%2Fesaj%2Fj_spring_cas_security_check"

    Shell (NavigatorAddress & " -url " & WebUrl)

Call Sleep(3000)

    SendKeys "~"
   
Call Sleep(10000)

End Function

Isso começou depois de muito tentar testar o WPP, que acho que bloqueou por segurança links do access...

Alguma sugestão?

Imagens:

Boas...

Tente pelo Mozila Firefox o acesso ao TJ-SP

Não sei como aconteceu, mas resolvi reinstalando o office rs... vou marcar como resolvido