Meldung Hyperlink-öffnen
11.10.2019 10:29:08
Dieter
habe folgenden Code mir zusammengebastelt:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Datei As String, NeuDatei As String, Pfad As String, NeuPfad As String
Dim strOff As String, Ext As String
If Target.Column = 4 Then
If Target "" Then
'Variablendefinition
Ext = ".dxf"
strOff = "\xys\xys\"
Pfad = ThisWorkbook.Path
Datei = Target.Offset(0, -2)
'Pfad bestimmen
NeuPfad = Left(Pfad, InStrRev(Pfad, "\") - 1) & strOff
'?berpr?fen, ob Datei vorhanden
If Dir(NeuPfad, vbDirectory) "" Then
NeuDatei = NeuPfad & Datei & Ext
If Dir(NeuDatei) "" Then
'Datei ?ffnen
ActiveWorkbook.FollowHyperlink NeuPfad & Datei & Ext
Else
MsgBox NeuDatei & " NICHT gefunden", vbCritical
End If
Else
MsgBox "Pfad nicht gefunden", vbCritical
End If
End If
End If
End Sub
Der Code funktioniert ohne Probleme bei PDF´s. Leider bei anderen Dateitypen wie ".dxf" kommt eine Warnung, ob die jeweilige Datei Viren enthält. Ich würde diese Meldung gern entweder automatisch bestätigen oder eben ausschalten, jedoch ausschließlich für diese Excel-Tabelle, sodass andere Nutzer ebenfalls diese Meldung nicht mehr erhalten.
Vielen Dank im voraus.
Gruß Dieter
Hier die Warnmeldung:
---------------------------
Microsoft Office
---------------------------
Öffne \\123\2345.dxf
Einige Dateien können Viren enthalten oder Ihren Computer in anderer Weise beschädigen.
Es ist wichtig sicherzustellen, dass diese Datei aus einer vertrauenswürdigen Quelle stammt.
Möchten Sie diese Datei öffnen?
---------------------------
OK Abbrechen
---------------------------