Bereiche in mehreren TB schützen
24.06.2021 19:29:12
Andreas
ich möchte in einer Datei bei mehreren Tabellenblätter jeweils den Bereich H2:Z8 schützen. Über den klassischen Weg: Zellen formatieren - Schutz - u.s.w. ist das bei vielen TB sehr langwierig.
Im Netz habe ich den folgende Code gefunden, nur werden da die kompletten TB geschützt.
Wie kann der Code angepasst werden, damit nur H2:Z8 geschützt wird?
Vielen Dank für eure Hilfe.
Andreas
Sub Schutz_Alle_Ein()
Dim blatt As Worksheet
For Each blatt In Worksheets
blatt.Protect Password:="Test"
Next blatt
End
Sub
