Workbook_BeforeClose Problem

Hallo,
habe nachstehenden Code geschrieben, um vor dem Speichern mit einer zusätzlichen Sicherheitsabfrage den User zu fragen, ob er neben der normalen Speicherung eine Sicherungskopie durchführen möchte. Soweit so gut - [ja] = Save + SaveAs (Sicherungskopie) machen und schließen (selber Code wie bei [nein], nur dass ich vorher noch ein wb.save und wab.saveas mache) funktioniert. Bei nachstehendem Codeteil mit [nein] - also ohne Speichern beenden - habe ich aber folgendes Problem: wenn noch irgendeine eine andere Arbeitsmappe geöffnet ist, während ich diese schließe mit Speichern = [nein], wird die Arbeitsmappe auch korrekt geschlossen, danach stürzt Excel aber ab (Sanduhr und aus....). Verstehe das Problem nicht - kann mir bitte jemand helfen - Code siehe unten....?
Danke
Wolfgang
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Konfig").Range("B4").Value "ja" Then Exit Sub
If Sheets("Konfig").Range("B3").Value = "ja" Then
Sheets("Konfig").Range("B3").Value = ""
Exit Sub
End If
res = MsgBox("Änderungen speichern und beenden = [JA]" & Chr(13) & Chr(13) & "Änderungen NICHT speichern und beenden = [NEIN]" & Chr(13) & Chr(13) & "Nicht beenden / weiterarbeiten = [ABBRECHEN]", vbYesNoCancel + vbQuestion, "Vorm Beenden speichern ?")
If res = vbNo Then
Application.DisplayAlerts = False
Sheets("Konfig").Range("B3").Value = "ja"
DoEvents
Call ActiveWorkbook.Close(False)
Application.DisplayAlerts = True
Exit Sub
End If
If res = vbYes Then....

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Wolfgang,
ich weiss nicht was du mit dem prüfen/setzen der Werte im Blatt "Konfig" Zelle "B3" und Zelle "B4" erreichen willst.
Es jedenfalls keinen Sinn im "NEIN"-Weg Zell-Werte zu ändern, wenn die Datei nicht gespeichert wird.
Ich würde es wie folgt lösen.
Den Verzeichnis für die Sicherheitskopie musst du ggf. anpassen.
Wenn du den Namen der Sicherheitskopie über den Zeitstempel fest vorgibst, dann kannst du auch ohne Dateidialog die Sicherheitskopie speichern.
Gruß
Franz

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim pathSK As String
res = MsgBox("Änderungen speichern und beenden = [JA]" & Chr(13) & Chr(13) _
& "Änderungen NICHT speichern und beenden = [NEIN]" & Chr(13) & Chr(13) _
& "Nicht beenden / weiterarbeiten = [ABBRECHEN]", _
vbYesNoCancel + vbQuestion, "Vorm Beenden speichern ?")
If res = vbNo Then
'Ohne Speichern beenden
Me.Saved = True
ElseIf res = vbYes Then
If Me.Saved = False Then Me.Save
'sicherheitskopie erstellen?
If MsgBox("Sicherheitskopie erstellen?", _
vbYesNo, _
"S I C H E R H E I T S K O P I E") = vbYes Then
pathSK = Me.Path & Application.PathSeparator & "SK"
If Dir(pathSK, vbDirectory) = "" Then
VBA.MkDir pathSK
End If
pathSK = pathSK & Application.PathSeparator
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Bitte Name der Sicherheitskopie eingeben/auswählen"
.FilterIndex = 2 'Excel: Dateien mit Makros
.InitialFileName = pathSK _
& "SK " & Format(Now, "YYYY-MM-DD hhmm") & Me.Name
If .Show = -1 Then
Me.SaveCopyAs .SelectedItems(1)
Else
End If
End With
End If
ElseIf res = vbCancel Then
Cancel = True
End If
End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

85 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Workbook_BeforeClose Problem

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

85 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread