Blattschutz nicht für alle TB
15.07.2021 07:26:52
Andreas
ich habe in einer Datei viele Tabellenblätter, für die mit folgendem Code ein immer gleicher Bereich gesperrt wird.
Sub Schutz_Ein()
Dim blatt As Worksheet
For Each blatt In Worksheets
With blatt
.Cells.Locked = False
.Range("H2:Z8").Locked = True
.Protect Password:="Test"
End With
Next blatt
End Sub
Ist das möglich und wenn ja - wie wäre das zu machen?
Vielen Dank für eure Hilfe.
Viele Grüße
Andreas
Anzeige