Datei schliessen verhindern

Forumthread: Datei schliessen verhindern

10.05.2006 17:35:03

Remo

Hallo miteinander!
Wie kann man unter gewissen Umständen verhindern, dass eine Datei geschlossen werden kann? Ich stelle es mir etwa so vor:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
if Range("A1") = 1  then 'Datei nicht schliessen
End Sub

Danke für eure Hilfe
Gruss Remo

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei schliessen verhindern

10.05.2006 17:37:53

ANdreas
Danke! (Kleiner Code, grosse Wirkung)! o.T.

10.05.2006 17:45:23

Remo

AW: Datei schliessen verhindern

10.05.2006 17:37:53

ANdreas

Hallo Remo,
hast es ja schon fast :)


Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets("Tabelle1").Range("A1").Value = 1  Then Cancel = True 'Datei nicht schliessen
End Sub

Gruß
Andreas

Danke! (Kleiner Code, grosse Wirkung)! o.T.

10.05.2006 17:45:23

Remo

Forumthread: Datei schliessen verhindern

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread