Before_Close hat Einfluss auf Before_Save

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim bolSaved As Boolean
Dim rngCell As Range
Dim wks As Worksheet
On Error Resume Next
bolSaved = Me.Saved
For Each wks In Me.Worksheets
With wks
Select Case wks.Name
Case "Tabelle ABA", "Tab10"
'Diese Tabellenblätter überspringen
Case Else
.Unprotect ("Passwort")
For Each rngCell In .Range("A6:S112").Cells
If rngCell.MergeCells = True Then
rngCell.MergeArea.Locked = rngCell.MergeArea.Range("A1")  ""
Else
rngCell.Locked = rngCell.Value  ""
End If
Sprungmarke:
Next
.Protect ("Passwort")
End Select
End With
Next wks
If bolSaved = True Then Me.Save
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Dim arWS As Variant, i As Integer
Dim rng As Range
Dim BereichAlle As Range, Bereich1 As Range, Bereich2 As Range, Bereich3 As Range
arWS = Array("erster Prüflauf", "zweiter Prüflauf", "dritter Prüflauf", "vierter Prüflauf")
For i = 0 To UBound(arWS)
Set Bereich1 = Worksheets(arWS(i)).Range("BD57")
Set Bereich2 = Worksheets(arWS(i)).Range("BE57")
Set Bereich3 = Worksheets(arWS(i)).Range("BF57")
Set BereichAlle = Union(Bereich1, Bereich2, Bereich3)
For Each rng In Bereich1
If rng  1 Then
MsgBox "ERSTES Ereignis unvollständig! Bitte alle ROT markierten Pflichtfelder  _
beschriften!"
Cancel = True
Exit Sub
End If
Next rng
For Each rng In Bereich2
If rng  1 Then
MsgBox "ZWEITES Ereignis unvollständig! Bitte alle ROT markierten Plichtfelder  _
beschriften!"
Cancel = True
Exit Sub
End If
Next rng
For Each rng In Bereich3
If rng  1 Then
MsgBox "DRITTES Ereignis unvollständig! Bitte alle ROT markierten Pflichtfelder  _
beschriften!"
Cancel = True
Exit Sub
End If
Next rng
Next i
For i = 0 To UBound(arWS)
Worksheets(arWS(i)).Range("U44").Value = Date
Worksheets(arWS(i)).Range("U101").Value = Date
Worksheets(arWS(i)).Range("U39").Value = Time
Worksheets(arWS(i)).Range("U97").Value = Time
Next i

Application.ScreenUpdating = True
End Sub