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