1.15.1 Blattschutz wenn Bedingung erreicht
Dieses Makro schützt den Bereich B10:B50 
wenn in der Zelle C10 der Wert größer 500 ist. 
Option Explicit
Private Sub Worksheet_Calculate()
If ActiveSheet.Range("C10") > 500 Then
ActiveSheet.Unprotect
Range("B10:B50").Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub