Pop up box when i open or try to open pdf using command button

[ipbr21054]

I have a worksheet that has numerous command buttons on.
Each command button opens the relevant pdf file.

Lately i see the following pop up box.
Clicking ok continue to open the pdf no problem.

Image of message also supplied
Example of the code in use.

Private Sub BikeKeys_Click()
ThisWorkbook.FollowHyperlink "C:\Users\Ian\Desktop\REMOTES ETC\PDF\BIKE-KEYS.pdf"
End Sub

 

[Ruddles]

Check this thread: MS Office Warning (Some files can contain viruses)

I'm aware you can disable this warning by tinkering with the Windows registry, but first you could try this:-

   Dim oShall As Object
   Set oShell = CreateObject("WScript.Shell")
   oShell.Run """C:\Users\Ian\Desktop\REMOTES ETC\PDF\BIKE-KEYS.pdf"""

Any good?

 

[OaklandJim]

Thanks for the response. I'm not sure what to do with this. Maybe in the Worksheet_FollowHyperlink event?

 

[ipbr21054]

Check this thread: MS Office Warning (Some files can contain viruses)

I'm aware you can disable this warning by tinkering with the Windows registry, but first you could try this:-

   Dim oShall As Object
   Set oShell = CreateObject("WScript.Shell")
   oShell.Run """C:\Users\Ian\Desktop\REMOTES ETC\PDF\BIKE-KEYS.pdf"""

Any good?

Perfect did the trick.

Have a nice evening

 

[Ruddles]

Thanks for the response. I'm not sure what to do with this. Maybe in the Worksheet_FollowHyperlink event?

Remove the ThisWorkbook.FollowHyperlink statement from the existing BikeKeys_Click() routine and insert my three lines of code.