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