Aqui não acusou nada, Ed. Qual antivírus que está reportando isso?

...não postei a planilha pq nem vão consegui baixar...

Mesmo assim anexe ela zipada mesmo pra gente ver. Pode ser?

parece que acusa no avast e avg quando vai baixar da internt
eu pensei até que era brincadeira e que estava realmente infectado
aí coloquei a macro numa planilha e postei no dropbox, na hora de baixar acusa viros
depois tirei a macro e parou de acusar

https://s-media-cache-ak0.pinimg.com/or ... aefd30.jpg

Novamente, Ed, não acusou nada aqui para mim. Meu antivírus é o ESET. Imagino que deva ser falso positivo mesmo, talvez devido ao link do dropbox no código. Tente editar o código só alterando o link para uma string vazia, só pra ver, quem sabe...

Bom dia Ed,

Tenta fazer essa "criptografia" boba para ver se "engana" o antivírus e passe batido no falso positivo:

Sub Atualiza()
Application.ScreenUpdating = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & "104116116112115058047047119119119046100114111112098111120046099111109" & "/s/cn1zgeb9592hlh7/resultados_lotofacil.txt?dl=1" _
        , Destination:=Range("$B$2"))
        .Name = "transaction"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

End Sub

Function cript(ByVal val As String) As String
Dim i   As Long

    For i = 1 To Len(val)
        cript = cript & Format(Asc(Mid(val, i, 1)), "000")
    Next i

End Function

Function decript(ByVal val As String) As String
Dim i   As Long

    For i = 1 To Len(val) Step 3
        decript = decript & Chr(Mid(val, i, 3))
    Next i

End Function

Faz o teste ae.

Qualquer coisa da o grito.
Abraço

valeu bernado
cara eu nunca podia imaginar que era por causa do link
o mesmo link em outra macro não acusa nada

muito estranho

Comigo já foi o contrário.
A única explicação pra mim foi o link.

Não teria explicação ser por causa do código. Um código simples e comum de ser usado.

então o dropbox pode ter alguma coisa com isso?
vou tentar trocar o link para ver

Costumo disponibilizar um link direto no meu site e não dá nada.
Pode ser que por ser um disco virtual, seja uma prática comum dos criadores de vírus e o antivírus já acusa direto.
Vai saber...

é pode ser
normalmente só fico montando as minhas maluquices mesmo então é dificil pegar esse tipo de problemas
para falar a verdade é a primeira vez
talves na outra macro não acuse viros pq o link fique subdividido em variaveis

bernado
só para completar e ter uma solução mais simples

realmente é o link
mas só ele na integra
nem precisa desse processo todo , é só quebrar o link
tipo
"URL;" & " https://www.dropbox.com" & "/s/cn1zgeb9592hlh7/resultados_lotofacil.txt?dl=1"

algo que eu acho meio burrice do anti viros
primeiro por acusar só por que tem um link
e segundo e pior, não identificar algo assim se um link realmente for prejudicial
acho que se viros forem mesmo usar links eles não iriam usar de uma forma tão explicita para ser bloqueados apenas pelo link

Cara, acredita que pensei nisso agora.
Mas pensei de outra forma.
Tipo, quebrar mais entre o HTTPS, o WWW, o .COM e tals...
Se apenas dessa maneira já resolveu, acho que é muita insegurança do antivírus...
kkkkkkkk

e burrice
mesmo pq se tem links para tudo quanto é lugar
como vai bloquear algo apenas por ter um link embutido ?
e a mensagem assusta qualquer um e faz com que se perca confiança
já pensou se fosse um trabalho pago?