Opgelost Melding bij openen bestand in excel uitzetten

[AatB]

Goedemorgen,

Ik werkt sinds kort met Microsoft 365 en krijg nu een melding op het scherm wanneer ik een pdf bestand wil openen vanuit een macro gekoppeld aan een icoontje.

Weet iemand hoe ik dit uit moet zetten, zodat het bestand meteen geopend wordt?

mvg,

Aat

 

[djutoch]

Open excel.
Ga naar Bestand -> Opties -> Vertrouwenscentrum -> Instellingen voor het vertrouwenscentrum -> Vertrouwde locaties. -> Nieuwe locatie toevoegen, kies daar voor je bovenstaande map in je plaatje.

 

[AatB]

Helaas, dat werkt dus niet.....

 

[AatB]

????

 

[edmoor]

Met welke opdracht in de macro wordt de PDF geopend?

 

[AatB]

        ActiveWorkbook.FollowHyperlink Address:=HelpPath & "\" & HelpFile

 

[edmoor]

En helpfile is een PDF?

 

[AatB]

Ja.....

 

[djutoch]

Ik heb een registertweak geschreven, kijk eens of dat helpt.
Dubbelklik op de reg file in bijlage.
Dit is een registeraanpassing, exporteer eventueel eerst je register.
Windows key + R, in het kader typ regedit -> Bestand -> Exporteren en sla die op(bv op je bureau blad), zo kan je die in geval van terug importeren. (Ik heb het bij mij getest, geen enkel probleem)
(zip file eerst uitpakken)

 

[AatB]

Dat gaat helaas niet....ik maak de applicatie, maar die moet elders draaien.
Ik heb inmiddels wel een oplossing gevonden.

Function Help(HelpFile As String)
    
    DefOff
    
    Dim HelpPath As String
    
    Dim Shl As Object
    Set Shl = CreateObject("Shell.Application")
    
    If ctOnError Then On Error GoTo Error_Log
    
    HelpPath = CheckPath(stPath & ",HelpFiles")
    Fname = HelpPath & "\" & HelpFile
    
    Map = Dir(Fname)
    If Map = "" Then
        MsgBox ("Bestand > " & HelpFile & " < is niet aanwezig")
    Else
        Shl.Open (Fname)
    End If

    On Error GoTo 0
    
    Defon
    
    Exit Function
    
Error_Log:
    Call ErrorLog("Help")

End Function

 

[edmoor]

Doe het eens zo:

    Dim objShell
    Set objShell = CreateObject("Shell.Application")
    objShell.ShellExecute HelpPath & "\" & HelpFile

 

[AatB]

Die werkt dus......
Bedankt allemaal voor de gedachten en tips!

 

[edmoor]

Ik zag te laat dat je die al had

 

[AatB]

Ja, je blijft zoeken.......
Bedankt in ieder geval...

 

[snb]

Schrijf het dan eens zó:

CreateObject("Shell.Application").ShellExecute HelpPath & "\" & HelpFile

 

[snb]

Het zou goed zijn als moderatoren een post eens goed zouden lezen alvorens hem te verwijderen.