Option Explicit
 
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)
            End If
        Next
    End With
    End Sub
 
Private Sub Workbook_Open()
    Call Worksheets("Eingaben").Protect(Password:="xxxxxxxx", _
      UserInterfaceOnly:=True)
End Sub

Private Sub Worksheet_Calculate()
    Dim objCell As Range
    For Each objCell In Range("O9:O20")
        With objCell
            If .Text = "OK" Then _
                If Not IsDate(.Offset(0, 2).Value) Then .Offset(0, 2).Value = _
                Date
        End With
    Next
End Sub
 
'tritt auf, wenn die Zelle mit geändertem Inhalt verlassen oder mit "Entf"
' geändert wird.
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 17 Then '=Spalte "Q"
    Select Case Target.Row
      Case 9 To 20           'Zeilen 9...20
        If ActiveSheet.Cells(Target.Row, 17) = Date Then
          ActiveSheet.Protect(Password:="xxxxxxxx", UserInterfaceOnly:=True) = _
            True
          ThisWorkbook.Save
          MsgBox "Dieser Urlaub ist jetzt nicht mehr veränderbar!", 64
        End If
    End Select
  End If
End Sub