Dúvida - Janela de aviso abre no meio da programação

Prezados colegas,

estou pesquisando uma resposta para meu problema há cerca de uma semana mas ainda não encontrei uma resposta. Aqui nesse grupo foi onde encontrei o caminho mais próximo da solução. Porém, apesar de tentar seguir as instruções não consegui.

Estou tentando fazer uma rotina muito simples com o método SendKeys em VBA para automatizar a abertura de um aplicativo.

O problema é quando tento abrir um arquivo .exe ou .Ink (atalho). A compilação do VBA é interrompida e a seguinte mensagem aparece "Alguns arquivos contêm vírus que podem ser prejudiciais ao seu computador ...."

Depois disso, preciso selecionar "Ok" ou "Cancelar" e o aplicativo não funciona corretamente.

Pesquisei muito, mas não encontrei solução. Existe alguma maneira de fazer a mensagem não aparecer?

Tenho Windows 10 Home Single Language, Microsoft 365, Excel versão 2107.


Veja abaixo o código (a mensagem de aviso aparece na linha "SendKeys (strFile)"):


Sub Ligacao()
Dim strOrigem As String
Dim strExtensao As String
Dim strFile As String

Application.DisplayAlerts = False

strOrigem = ThisWorkbook.Path & "\"
strExtensao = ".lnk"

strFile = Dir(strOrigem & "*" & strExtensao)


Do While strFile <> ""

If Mid(strFile, 1, 3) = "Hat" Then

SendKeys (strFile)

End If

Loop

End Sub

Raphael, seja bem vindo ao fórum.

Seu tópico foi movido para off tópic por não ser assunto relacionado a VBA Access.

Tente

Código:

Call CreateObject("WScript.Shell").Run("c:\SuaPasta\SeuArquivo.exe", 5, "false")