will die Zellen A20-A100 nach Ablauf einer Prozedur schützen/sperren.
Aber irgendwie funktioniert folgender Befehl nicht:
Range("A20:A100").Protect
Was ist falsch?
Danke, Markus
will die Zellen A20-A100 nach Ablauf einer Prozedur schützen/sperren.
Aber irgendwie funktioniert folgender Befehl nicht:
Range("A20:A100").Protect
Was ist falsch?
Danke, Markus
Du kammst nicht einzelnr Zellen schützen,somdern nur die Tabelle.
Gruß Hajo
Will aber damit erreichen, dass A20:A100 mit dem Häkchen "gesperrt" versehen werden, also Änderung unmöglich werden. Hatte mich dann wohl falsch ausgedrückt...
Markus
du musst vorher Sperrung vom gesamten Blatt entfernen auf den speziellen Bereich (A1:A100) wieder draufsetzen. Dann kannst du das gesamte Blatt schützen. Läßt sich wunderbar aufzeichnen:
Sub BereichSchützen()
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A1:A20").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("A1").Select
ActiveSheet.Protect Password:="Test"
End Sub
Grüße
Nico
Gruß Hajo