beforeclose ereignis

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Dim Frage As String
Frage = "Wollen Sie die aktuelle Berechnung speichern ?"
Application.EnableEvents = False
Application.DisplayAlerts = False
Call Arbeitsmappenschutz_deaktivieren
For i = 1 To Worksheets.Count
Application.CommandBars(i).Enabled = True
Next i
Call Arbeitsmappenschutz_aktivieren
If (MsgBox(Frage, vbQuestion Or vbYesNoCancel, Name_Fenster)) = vbYes Then
Call Schutz_deaktivieren("Start")
Sheets("Start").Range("A1") = 1
ActiveWorkbook.Close SaveChanges:=True
Call Schutz_aktivieren("Start")
ElseIf (MsgBox(Frage, vbQuestion Or vbYesNoCancel, Name_Fenster)) = vbCancel Then
Cancel = True
Application.EnableEvents = True
Application.DisplayAlerts = True
Exit Sub
Else
ActiveWorkbook.Close SaveChanges:=False
End If
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub