Sie möchten eine Tabelle automatisch mit einem Blattschutz versehen wenn eine Bedingung erfüllt ist ? 

Nachstehendes Makro schützt den Bereich A1 bis A7 wenn in der Zelle C6 der Wert von 100 überschritten wird. 

Option Explicit

Private Sub Worksheet_Calculate()
If ActiveSheet.Range("C6") > 100 Then
ActiveSheet.Unprotect
Range("A1:A6").Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub


Eine Musterdatei können Sie mit Klick auf nachstehendes Symbol herunterladen