'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