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

'tritt auf, wenn die Zelle verlassen wird:
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ABL As Object '("ABL" = Arbeitsblatt)
  Set ABL = ThisWorkbook.Worksheets("Tabelle1")
  If Target.Row = 20 Then
    If Target.Column = 15 Then
       'Zelle "O20" wurde geändert
      If Target.Text = "ist ok" Then  '(unterstelltes "Codewort" des PersChefs)
        ABL.Cells(20, 16) = "genehmigt"
        ABL.Cells(20, 17) = Date
        ABL.Range("A20:Q20").Locked = True
        ThisWorkbook.Save
        MsgBox "Dieser Urlaub ist jetzt nicht mehr veränderbar!", 64
      End If
    End If
  End If
End Sub

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

'tritt auf, wenn die Zelle mit geändertem Inhalt verlassen wird.
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$O$20" Then
    If Range("$O$20").FormulaR1C1 = "GEHEIM" Then
      Range("$O$20").FormulaR1C1 = "in Ordnung"
      Range("$P$20").FormulaR1C1 = "genehmigt"
      Range("$Q$20").FormulaR1C1 = Date
      Range("A20:Q20").Locked = True  'Sperren der Zellen in Zeile 20
      ActiveSheet.Protect(Password:="XXXXXXX", UserInterfaceOnly:=True) = True
      ThisWorkbook.Save ' ruft "Workbook_BeforeSave" auf und graut die _
        angegebenen Zellen aus
      MsgBox "Dieser Urlaub ist jetzt nicht mehr veränderbar!", 64
    End If
  End If
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)
  Dim ZL%  'Steht für die Tabellenzeile, in der eine Änderung erfolgte.
  Dim SP%  'Steht für die Tabellenspalte, in der eine Änderung erfogte.
  ZL = Target.Row
  SP = Target.Column
 
  'Es soll nur war passieren, wenn in Spalte "Q" (numerisch=17) das Datum 
  ' gesetzt wird:
  If SP = 17 Then
    'Hier könnte man auch schreiben:
    'if ZL=9 or ZL=10 or ZL = 11 or  .... or ZL=20 then...
    'Aber das geht mit "Select Case" wesentlich kürzer. Also:
    Select Case ZL
      Case 9 To 20  'mache nur was, wenn eine der Zeilen 9...20 betroffen ist!
        If ActiveSheet.Cells(ZL, 17) = Date Then
            ActiveSheet.Protect(Password:="XXXXXXX", UserInterfaceOnly:=True) = _
              True
            ThisWorkbook.Save
            MsgBox "Dieser Urlaub ist jetzt nicht mehr veränderbar!", 64
        End If
    End Select
  End If
End Sub

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:="XXXXXXX", UserInterfaceOnly:=True) = _
            True
          ThisWorkbook.Save
          MsgBox "Dieser Urlaub ist jetzt nicht mehr veränderbar!", 64
        End If
    End Select
  End If
End Sub

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

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.Range(Cells(Target.Row, 1), Target.Cells(Row, 17)).Locked _
            = True 'neu
          ActiveSheet.Protect(Password:="XXXXXXX", UserInterfaceOnly:=True) = _
          True
          ThisWorkbook.Save
          MsgBox "Zeile " & Target.Row & ":" & vbCrLf & "Dieser Urlaub ist" & _
            "jetzt nicht mehr veränderbar!", 64
        End If
    End Select
  End If
End Sub
'Die Zeile "objCell.EntireRow.Locked = True" in "Workbook_BeforeSave" 
' streichen/deaktivieren.