Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

BeforeClose Fenster Änderungen speichern

Forumthread: BeforeClose Fenster Änderungen speichern

BeforeClose Fenster Änderungen speichern
Dirk
Hallo Excelgemeinde,
ich habe Probleme mit einer Datei, schaffe es nicht dieses selbst zu lösen und bitte um eure Hilfe!!!
Anbei eine Beispielmappe:
https://www.herber.de/bbs/user/71131.xls
Folgendes Problem bekomme ich nicht in den Griff:
Ich hätte gerne, dass sich beim Schließen der Datei eine MsgBox öffnet und man dort entscheidet, ob die Änderungen an der Datei gespeichert werden sollen oder nicht. Dann soll sich die Datei schließen.
Eigentlich funzt das auch soweit ganz gut, aber....
Nach dem Speichervorgang wird noch ein Macro ausgelöst (das soll auch so sein). Das bewirkt allerdings, dass nochmals durch Excel selbst nach dem Speichern gefragt wird. Dies soll allerdings nicht sein!
Denn, dadurch wird in dieser Datei zum Beispiel CellDragandDrop wieder eingeschaltet, wenn man im Dialog auf abbrechen geht. Auch dies soll nicht sein.
Ich hoffe ich habe mich einigermaßen klar ausgedrückt!?!?!?
In der Hoffnung auf Hilfe
Dirk R.
Anzeige
AW: BeforeClose Fenster Änderungen speichern
19.08.2010 10:58:24
JogyB
Hallo Dirk,
ThisWorkbook.Saved = True
Dann kommt die Abfrage von Excel nicht mehr. Das darf natürlich nur gesetzt werden, wenn es wirklich die Ausführung vor dem Beenden ist, dafür ggf. noch eine globale Variable setzen, die Du dann abfragen kannst.
Genauer kann ich gerade nicht beschreiben, da ich hier keine Dateien runterladen und damit auch Deinen Code nicht anschauen kann.
Gruß, Jogy
Anzeige
AW: BeforeClose Fenster Änderungen speichern
19.08.2010 11:27:31
Dirk
Hallo Jogy,
danke für die schnelle Antwort.
ThisWorkbook.Saved = True habe ich auch schon versucht, aber in diesem Fall hat es nicht funktioniert
Gruß, Dirk
AW: BeforeClose Fenster Änderungen speichern
19.08.2010 13:45:33
ChrisL
Hi Dirk
Warum soll das nicht funktionieren?
Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Antwort
Antwort = MsgBox("Änderungen beim Schließen speichern?", _
vbYesNoCancel, "Datei Schließen")
Select Case Antwort
Case vbNo:
ThisWorkbook.Saved = True
Case vbYes:
Application.CellDragAndDrop = True
'hier werden in der Originaldatei Menüeintragungen wieder hergestellt
ThisWorkbook.Saved = True
Case Else: Cancel = True
End Select
End Sub
cu
Chris
Anzeige
AW: BeforeClose Fenster Änderungen speichern
19.08.2010 13:52:24
Dirk
Hallo Chris,
wenn ich den Code so ändere werden die Änderungen in der Datei dann nicht gespeichert, obwohl ich in der MsgBox vbYes gewählt habe.
Gruß
Dirk
AW: BeforeClose Fenster Änderungen speichern
19.08.2010 14:03:39
ChrisL
Hi Dirk
Na dann so...
Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Antwort
Antwort = MsgBox("Änderungen beim Schließen speichern?", _
vbYesNoCancel, "Datei Schließen")
Select Case Antwort
Case vbNo:
ThisWorkbook.Saved = True
Case vbYes:
Application.CellDragAndDrop = True
'hier werden in der Originaldatei Menüeintragungen wieder hergestellt
ThisWorkbook.Save
ThisWorkbook.Saved = True
Case Else: Cancel = True
End Select
End Sub
cu
Chris
Anzeige
AW: BeforeClose Fenster Änderungen speichern
19.08.2010 14:04:11
JogyB
Da muss auch bei Case vbYes noch ein ThisWorkbook.Save rein.
Gruß, Jogy
AW: BeforeClose Fenster Änderungen speichern
20.08.2010 06:49:39
Dirk
Vielen Dank an euch beide!!!
durch eure Hinweise habe ich den Code nun so umgebastelt, dass er funzt. Ich musste noch die Variable booCancel As Boolean global deklarieren und folgendes in den Code einfügen.
booCancel = True
Call SheetsVisible
ThisWorkbook.Sheets("Warnung!").Activate
Call SheetsHidden
Nun läuft alles so, wie ich es mir vorgestellt habe!!!!!!!
Hier der komplette Code:
Dim booCancel As Boolean
Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Antwort
Antwort = MsgBox("Änderungen beim Schließen speichern?", _
vbYesNoCancel, "Datei Schließen")
Select Case Antwort
Case vbNo:
ThisWorkbook.Saved = True
Case vbYes:
Application.CellDragAndDrop = True
'hier werden in der Originaldatei Menüeintragungen wieder hergestellt
booCancel = True
Call SheetsVisible
ThisWorkbook.Sheets("Warnung!").Activate
Call SheetsHidden
ThisWorkbook.Save
ThisWorkbook.Saved = True
Case Else: Cancel = True
End Select
End Sub 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Call SheetsVisible
ThisWorkbook.Sheets("Warnung!").Activate
Call SheetsHidden
If Not booCancel Then
booCancel = True
If SaveAsUI Then 'wurde speichern unter gewählt?
Application.Dialogs(xlDialogSaveAs).Show
Else
Me.Save
End If
'Dein Makro nach speichern
Call SheetsVisible
ThisWorkbook.Sheets("Zu- und Abgänge").Activate
Call SheetsHidden
booCancel = False
End If
If Not booCancel Then Cancel = True: SaveAsUI = False 'speichern abbrechen
Application.ScreenUpdating = True
End Sub


Private Sub SheetsHidden()
ThisWorkbook.Unprotect ("pia")
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.Name  ActiveSheet.Name Then
wks.Visible = xlVeryHidden
End If
Next wks
ThisWorkbook.Protect ("pia")
End Sub


Private Sub SheetsVisible()
ThisWorkbook.Unprotect ("pia")
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Visible = True
Next wks
ThisWorkbook.Protect ("pia")
End Sub


Private Sub Workbook_Open()
Application.CellDragAndDrop = False
Call SheetsVisible
ThisWorkbook.Sheets("Zu- und Abgänge").Activate
Call SheetsHidden
End Sub
Vielen Dank
Gruß
Dirk
Anzeige
;

Forumthreads zu verwandten Themen

Probleme mit Add In Subs bei Workbook_BeforeClose
Lou

Hallo Gemeinde,
bin neu hier, also erstmal Hallo! an alle.
Ich kämpfe im Moment mit folgendem Problem und finde keine Lösung:
Ich habe viele benutzdefinierte Funktionen und Prozeduren als EXCEL AddIn gespeichert. Die Benutzung aus geöffneten EXCEL-workbooks funktioniert auch wunderb...
15.08.2008 00:53:00
Thread-ID: 1002006
5 Beiträge
beforeClose=Wbs.close or Applicatio.quit
Dirk

Hallo an alle,
nachdem ich nun schon Tage mit Unterstützung der Hilfe sowie diesem Forum an meinem Code rumbastel, brauche ich bitte nochmal eure Hilfe.
Bin dabei ein Workbook_BeforeClose-Makro zu schreiben,das auch andere bestimmte Excelmappen(.xls)falls geöffnet schliessen soll. Dafür...
11.09.2008 14:29:00
Thread-ID: 1009125
9 Beiträge
Anzeige
Autofilter nicht aktiv nach "BeforeClose"
Uli

Ich habe eine Datei mit Blattschutz (Passwort). Es gibt 2 Gruppen User:
1. Gruppe - Dürfen Neueinträge machen, dazu wird über einen Button der Blattschutz aufgehoben. Dieser Teil ist erledigt und funktioniert.
2. Gruppe darf ohne Blattschutz aufheben nur in freigegebenen Zellen Eingab...
01.04.2009 08:09:13
Thread-ID: 1065793
3 Beiträge
Prozedur-Fehler bei Auruf über BeforeClose/Save
Rainer

Hi @ all!
Habe da gerade ein mir nicht wirklich erklärbares Problem:
Eine Sub innerhalb derer ein Workbook geöffnet wird, funktioniert einwandfrei.
Nun soll diese Sub aber auch bei entsprechendem Flag ausgeführt werden, wenn der Nutzer die aktuelle Mappe schliesst.
Hab das Ganz...
14.04.2009 16:46:11
Thread-ID: 1068691
9 Beiträge
WorkBook_BeforeClose
Daniel

Hallo,
ich habe eine CheckBox in meiner Datei, die ich gerne beim Schließen
der Datei auf False setzen möcht, sodass sich das Häkchen entfernt.
Wie geht das? Hier mein erfolgloser Versuch:
Private Sub WorkBook_BeforeClose(Cancel As Boolean) CheckBox1 = False End Sub
grüße...
27.04.2009 15:13:02
Thread-ID: 1071394
10 Beiträge
Code ausführen bei BeforeClose
Mandy

Hi zusammen,
ich habe in meinem Excel ein makro, dass auch eine Symbolleiste startet. Wenn ich die Tabellen schliesse, soll auch die Symbolleiste wieder geschlossen werden. Das mache ich so:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Symbolleiste_aus 'Symbolleiste wieder schl...
05.05.2009 10:13:06
Thread-ID: 1072986
5 Beiträge
Workbook_BeforeClose
AgeO

Hallo, liebe Excel-Freunde.
Ich habe bitte folgendes Problem und bitte um eure Hilfe.
Ich habe unter ’DieseArbeitsmappe’ folgenden Code: Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close savechanges:=False 'oder auch ThisWorkbook.Close savechanges:=False End S...
30.06.2010 12:27:13
Thread-ID: 1164685
3 Beiträge
Unterbinden von WorkbookBeforeClose
Andreas X

Ich suche einen VBA-Befehl, mit dem ich bewirken kann, dass das WorkbookBeforeClose-Makro beim Schließen der Datei NICHT gestartet wird. Gibt es sowas?Mit Dank im Voraus,
Andreas
30.04.2002 14:38:41
Thread-ID: 117479
3 Beiträge
Problem mit "Workbook_BeforeClose"
Harald

Hallo zusammen,
weiß jemand warum der folgende Code zum Öffnen einer bestimmten Datei im
Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks.Open Filename:="C:\Test\TESTDATEI.xls", UpdateLinks:=3 End Sub nicht funktioniert?
Gruß, Harald
20.01.2011 20:14:37
Thread-ID: 1196615
11 Beiträge
Anzeige
Personl.xls - BeforeClose wird nicht ausgefuehrt
Volker

Hallo Excel-Fans,
kaempfe mit einem sehr merkwuerdigen Verhalten:
Die Personl.xls enthaelt in "DieseArbeitsmappe" 2 Makros:
Private Sub Workbook_Open() und Private Sub Workbook_BeforeClose(Cancel As Boolean),
die bei jedem Oeffnen und Schliessen von Excel abgearbeitet werden sol...
07.03.2011 16:05:30
Thread-ID: 1204610
7 Beiträge
Bei einer bestimmten Datei BeforeClose umgehen
Jürgen

Hallo Excel-Forum,
ich hoffe mir kann jemand von Euch helfen. Schätzungsweise ist das ein kleines Problem.
Hier kurz geschildert:
Beim Öffnen einer Datei kontrolliert diese per Makro, ob es eine aktuellere Version im Netzwerk gibt. Wenn ja speicher sich die Datei als alt weg und öff...
11.08.2011 09:43:59
Thread-ID: 1225668
8 Beiträge
Anzeige
Private Sub Workbook_BeforeClose
Scot

Liebe Leute
Ich hab mal wieder ein kleines Problem. Folgendes habe ich in "DieseArbeitsmappe" geschrieben:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.MoveAfterReturnDirection = xlDown Application.CommandBars("Standard").Visible =...
22.09.2011 13:56:18
Thread-ID: 1231079
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige