'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