'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