Datei schließen über "X" verhindern
11.09.2006 14:39:07
Torge
kann jemand helfen?
Beispieldatei liegt bei. https://www.herber.de/bbs/user/36580.xls
Möchte gern das Beenden mit dem Speichern unter Dialog machen, d.h. wenn Speichern unte erscheint Datei unter neuen Namen speichern lassen, bei abbrechen soll die Datei aber nicht geschlossen werden, sondern offen bleiben und eben nur bei speichern unter neuen Namen geschlossen werden dürfen.
Verwende folgenden Code bei betätigen des Button:
Public
Sub schliessen()
bolbeenden = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub
Vielleicht kann jemand helfen.
Vielen Dank
Gr. Torge