Code nur auf Teilbereich einer Tabelle anwenden
05.07.2006 18:47:08
Fritz
mit dem nachstehenden Code, den ich aus diesem Forum erhalten habe, wird der Blattschutz jeweils auf "Zellen mit Formeln" innerhalb einer Tabelle beschränkt.
Meine Frage:
Wie muss man den Code abändern, wenn man die Überprüfung auf einen bestimmten Bereich der Tabelle beschränken will (z.B. die Überprüfung und Änderung sollte sich auf den den Bereich A1:K60 beschränken).
Vielen Dank für eure Hilfe.
Mfg
Fritz
Private Sub Worksheet_Activate()
Dim Zelle As Range
ActiveSheet.Unprotect
For Each Zelle In UsedRange
If Not Zelle.HasFormula Then
Zelle.Locked = False
End If
Next
ActiveSheet.Protect
End Sub