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
Nun habe ich die ersten 4 Tabellenblätter (das werden auch immer diese 4 bleiben 'Angabe', 'Zugang', 'ZF' und Vereinbg'), für die ich diesen Schutz nicht vereinbaren möchte. Ist das möglich und wenn ja - wie wäre das zu machen?
Vielen Dank für eure Hilfe.
Viele Grüße
Andreas