bedingter Schutz auf Zellbereiche

Um eine Tabelle automatisch mit einem Blattschutz zu versehen wenn eine Bedingung erfüllt ist nutze ich das Calculate Ereignis des Tabellenblattes.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

Man kann nun durch Aufheben des Blattschutzes den Bereich A1 bis A6 wieder ändern. Selbstverständlich lässt sich der Blattschutz auch mit Kennwort realisieren, so dass die Änderung nur von berechtigten Usern vorgenommen werden können.

 Share on Facebook

Read more http://vba-codeschnipsel.de/bedingter-schutz-auf-zellbereiche/