Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pfad prüfen mit msgbbox

Forumthread: Pfad prüfen mit msgbbox

Pfad prüfen mit msgbbox
13.07.2020 07:19:54
Thomas
Hallo Zusammen,
wäre es möglich, das beim öffnen der Excel der aktuelle Speicherpfad geprüft wird und wenn es ein bestimmter Pfad ist, dann soll beim öffnen der Excel eine Meldung kommen msgbox, das die Arbeitsmappe hier nicht bearbeitet werden kann und wenn das mit ok bestätigt wird soll sie schließen.
Ich Danke im Voraus!
Gruß Thomas
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad prüfen mit msgbbox
13.07.2020 07:41:11
Oberschlumpf
Hi Thomas,
versuch es so:

Private Sub Workbook_Open()
If ThisWorkbook.Path = "X:\Dein Pfad" Then
MsgBox "Die Datei wurde im Verzeichnis " & vbCrLf & vbCrLf & _
"''" & ThisWorkbook.Path & "'' geöffnet." & vbCrLf & vbCrLf & _
"In diesem Verzeichnis darf die DAtei nicht bearbeitet/gespeichert werden." &  _
vbCrLf & _
"Die Datei wird ungespeichert geschlossen."
ThisWorkbook.Close False
End If
End Sub
Anstelle von "X:\Dein Pfad" musst du den Pfad angeben, um den es geht.
Hilfts?
Ciao
Thorsten
Anzeige
AW: Pfad prüfen mit msgbbox
13.07.2020 08:08:02
Thomas
Besten Dank!
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige