Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
per VBA - lästige Meldung umgehen?
KLE
Hallo,
...gibt es eine Möglichkeit per VBA, diese lästige Meldung:

"Eingie Dateien können Viren enthalten, die Ihren Computer beschädigen können. Vergewissern Sie sich, dass diese Datei aus einer vertrauenswürdigen Quelle stammt."

abzuschalten?
Ich nutze folgenden Code um eine Datei per Link zu öffnen:
' per Doppelklick auf ein Label, welches den Pfad enthält...
Application.DisplayAlerts = False
Pfad = objLDocLink.Caption
If Dir(Pfad) "" Then
ActiveWorkbook.FollowHyperlink (Pfad)
Else
objLInfo.Caption = "Dateipfad kann nicht aufgerufen werden!"
End If
Application.DisplayAlerts = True
Über jeden Hinweis, bin ich wie immer sehr dankbar ;o)
Gruß
Kay

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: per VBA - lästige Meldung umgehen?
31.08.2011 09:16:08
selli
hallo kay,
so wie ich das verstehe ist das keine meldung die von excel kommt, sondern hängt mit der sicherheitsstufe zusammen mit der du ins internet gehst.
sicher bin ich mir aber nicht.
kannst ja mal da nachsehen.
gruß selli
AW: per VBA - lästige Meldung umgehen?
31.08.2011 12:19:04
KLE
Hi Selli,
Danke für die Antwort, hatte ich auch erst gedacht, aber es handelt sich dabei um eine Datei auf dem Rechner...und zum anderen steht in der Meldung in der Fensterleiste "Microsoft Office"...daher dachte ich, handelt es sich um eine Meldung aus dem Office-Bereich - sprich Excel...
Vielleicht kennt jemand noch einen Ansatz, denn mit:

Public Sub test()
Dim myShell As Object
Dim Pfad As String
' Hier einmal ein Beispiel mit festem Pfad... im Tool, wird der Pfad aus einem Label  _
gelesen...
Pfad = "C:\Users\KLE\Documents\Grafiken.docx"
Set myShell = CreateObject("Shell.Application")
myShell.Open Pfad
End Sub

passiert leider garnichts. Der Code läuft sauber durch, aber es startet kein Programm...
Gruß und Danke!
Kay
Anzeige
AW: per VBA - lästige Meldung umgehen?
31.08.2011 12:36:14
Rudi
Hallo,
versuchs mal so:
Pfad = "C:\Users\KLE\Documents\Grafiken.docx"
Set myShell = CreateObject("WScript.Shell")
myShell.Run Pfad
Gruß
Rudi
Danke...so klappt es ;o) o.T.
31.08.2011 14:40:14
KLE

18 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige