VBA code treated as"Malicious"

[Stan Denman]

I am trying to run this code from an microsoft access form. It seeks to fill an adobe acrobat form from MS access data on the form. I runs fine when I am referring to a pdf on my desktop. I am trying to have the code load a tempate from my online adobe account.

rivate Sub Command85_Click()    Dim TemplateURL As String
    Dim DownloadFolder As String
    Dim DownloadPath As String


    ' Define the URL of your Adobe Acrobat template
    TemplateURL = "Url of my template"


    ' Define the folder where you want to save the downloaded template
    DownloadFolder = "C:\Users\stand\Desktop\"


    ' Generate a unique file name
    DownloadPath = DownloadFolder & "template_" & Format(Now, "YYYYMMDDHHMMSS") & ".pdf"


    ' Download the template from the URL
    If DownloadFile(TemplateURL, DownloadPath) Then
        ' Open the downloaded PDF in Adobe Acrobat
        Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe """ & DownloadPath & """", vbNormalFocus
    Else
        MsgBox "Template download failed."
    End If
End Sub


Function DownloadFile(URL As String, FilePath As String) As Boolean
    On Error Resume Next
    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("MSXML2.ServerXMLHTTP")


    WinHttpReq.Open "GET", URL, False
    WinHttpReq.send


    If WinHttpReq.status = 200 Then
        Dim objStream As Object
        Set objStream = CreateObject("ADODB.Stream")
        objStream.Open
        objStream.Type = 1
        objStream.Write WinHttpReq.responseBody
        objStream.Position = 0
        objStream.SaveToFile FilePath
        objStream.Close
        DownloadFile = (Err.Number = 0) ' Check if an error occurred during the save operation
    End If


    Set WinHttpReq = Nothing
    On Error GoTo 0
End Function

Antivirus shuts it down. I don't want to just shut the antivirus down to solve obviously.

[moke123]

Does the file have the "Mark of the Web"?

Check the file properties and see if it is blocked.

[moke123]

Crossposted - https://www.access-programmers.co.uk...he-way.329093/

[Stan Denman]

I don't know what we mean by "the file". I am going to assume the target template file. I don't know what you mean by "blocked". And I don't know what you mean by "Mark of the Web".

[moke123]

https://learn.microsoft.com/en-us/deployoffice/security/internet-macros-blocked



check your downloaded file.
Also check trusted location.

[Stan Denman]

I am dealing with a pdf file not a word file.

[davegri]

It applies to ANY downloaded file.

[Stan Denman]

The problem appears to be with MS Access setting (thank you ChatGPT). Going in the "Trust Center" in MS Access and setting permission for all macros did allow for download. Still having problems in that I am downloading an html not a pdf file, and therefore will not work. Tyring now to figure out how to get the correct url for the pdf template. Thanks very much for your hlep!

[moke123]

I'm not sure what an Adobe online account entails, but have you looked through their API's to see if there's anything relevant?

https://developer.adobe.com/apis

[Stan Denman]

That is a good idea. Thank you for the suggestion and the link.