Application.Displayalerts not working...

[rbon]

Hello,

I've got this piece of code, supposed to open external files (which are flash videos):


Public Sub Open_External_File()
Dim sExternal_File, sShape, sPath As String

sShape = Application.Caller 'the Shapes are named video01, video02, video03...
sExternal_File = sShape & ".exe"
sPath = "C:\" & sExternal_File

Application.DisplayAlerts = False
ActiveWorkbook.FollowHyperlink Address:=sPath
Application.DisplayAlerts = True
End Sub


The code kinda works, I mean, when I click in any of the shapes I've got along my sheet, the proper file is opened and the video is shown... BUT, before that happens, excel keeps showing me an alert message, that "Application.DisplayAlerts = False" is supposed to prevent.
Intriguing: while running tests, I've tried to open images (.jpg) instead of exe files.
That works perfectly. No alert is shown...

 

[Colo]

Hi rbon,

To disable hyperlink warning messages, need to follow as follows.
How to disable hyperlink warning messages in Office 2003

 

[rbon]

Hi Colo,
Thanks for replying!

Okay.... that article you've mentioned is not sooo complicated, guess I understand.
And by the way, the message that's bothering me is:
"Opening <var>path</var>/<var>filename</var>.
Some files can contain viruses or otherwise be harmful to your computer.
It is important to be certain that this file is from a trustworthy source.
Would you like to open this file?"

Wished there was a way to use vba code only, with no registry editing...
There's no work around this?...

 

[Jaafar Tribak]

Why don't you use the Shell Command instead of using the FollowHyperlink Method ?

 

[rbon]

Uhuuu !!!!!!!!!!!!
That Shell command was just what I needed!!!
I wasn't aware of it!!!

sReturnVal = Shell(sPath & sExternal_File, vbMaximizedFocus)

Thank you Jaafar!!!