Zum abspielen eines Videos aus einer Userform habe ich folgenden Code (hier im Forum von Hajo)
Private Sub CommandButton1_Click() 'Aufruf für den Hyperlink
Application.DisplayAlerts = False
Call video_01_Hyperlink_Click
Application.DisplayAlerts = False
End Sub
Private Sub video_01_Hyperlink_Click() 'Pfad der Video-Datei mit Namen angeben
Application.DisplayAlerts = False
On Error GoTo Fehler
ActiveWorkbook.FollowHyperlink Address:=Worksheets("Hilfe").[D2], NewWindow:=True
Exit Sub
Fehler:
msg = MsgBox("Video wird abgebrochen", Title:="Eingeben von Daten")
End Sub
funktioniert auch soweit. Problem: wenn ich die wmv Datei öffne bekomme ich von Excel die MeldungÖffne - Dateipfad
Einige Dateien können Viren enthalten....usw
möchten Sie die Datei öffnen
Wie kann man diese Meldung abfangen bzw. unterdrücken damit das Video direkt abgespielt wird?
Für Hilfe immer Dankbar
Gruß, Guesa