Zellbereich per Passwort sperren
05.04.2017 08:36:45
BlackStallion
Ich möchte in einer Reihe von Tabellenblättern immer wieder den gleichen Zellbereich vor Änderung schützen.
Das ist meine Formel:
---
Sub Blattschuetzen()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Range(Cells(1, 1), Cells(1000, 10)).Protect Password:="T14"
Next
End Sub
---
Irgendwas gefällt ihm an an der vierten Zeile nicht (Laufzeitfehler 438), ich weiss aber nicht was. Bezug auf das Tabellenblatt, Zellbereich und Funktion.
Was habe ich vergessen?
Danke für eure Hilfe.
Anzeige