Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim objCell As Range
    Dim loZ As Long
    With Worksheets("Eingaben")
        For Each objCell In .Range("Q9:Q20")
            If IsDate(objCell.Value) Then
                loZ = objCell.Row
                objCell.EntireRow.Locked = True
                objCell.Interior.Color = RGB(221, 221, 221)
                .Range(.Cells(loZ, 1), .Cells(loZ, 5)).Interior.Color = RGB( _
                  221, 221, 221)
                .Range(.Cells(loZ, 7), .Cells(loZ, 11)).Interior.Color = RGB( _
                221, 221, 221)
                ThisWorkbook.Save
                MsgBox "Dieser Urlaub ist jetzt nicht mehr veränderbar!"
            End If
        Next
    End With
End Sub