Workbook_BeforeSave Hilfe
28.10.2021 08:41:25
Peter
ich habe immer wieder Probleme wenn nach dem speichern und beenden der Arbeitsmappe die Arbeitsmappe wieder geöffnet wird.
Zum Beenden benutze ich folgenden Code:
'Beenden
Private Sub CommandButton2_Click()
'Anfang aktuellen Pfad in Worddaten B59 einfügen für Prüfung in DieseArbeitsmappe Workbook_Open
Call aktuellen_Pfad_Inhalt_kopieren_einfügen
'Ende aktuellen Pfad in Worddaten B59 einfügen für Prüfung in DieseArbeitsmappe Workbook_Open
If Application.Workbooks.Count > 1 Then
'Calculate
ThisWorkbook.Save
ThisWorkbook.Close
Exit Sub
ElseIf Application.Workbooks.Count = 1 Then
'Calculate
ThisWorkbook.Save
''ThisWorkbook.Close 'darf nicht aktiviert werden
Application.Quit
End If
End Sub
Ich habe festgestellt, dass dann die Daten nicht vollständig gespeichert sind.Nun zu meiner konkreten Frage:
Hilft es vielleicht, dass ich in "DieseArbeitsmappe" folgenden Code einbaue:
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
ThisWorkbook.Save
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs "C:\Users\Peter\Desktop\Test_Sicherungskopie_erstellen\Sicherungskopien\" & "Sicherungskopie von_" & ThisWorkbook.Name
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Kann dadurch der zuvor beschriebene Fehler verhindert werden. Vielleicht könnt ihr mir die Arbeitsweise von "Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)" kurz erklären.Besten Dank
Gruss
Peter