Blattschutz und intelligente Tabelle
21.07.2021 06:57:08
Andreas
ich habe eine Verständisfrage:
in einer Datei mit mehreren Tabellenblättern habe ich pro TB (außer den TB "Tur", "Schu", "Fa", "Le") einen Bereich (B2:AR7) mit einem Schreibschtz versehen.
Sub Schutz_Ein_ohne4()
Dim blatt As Worksheet
For Each blatt In Worksheets
With blatt
Select Case .Name
Case "Tur", "Schu", "Fa", "Le"
Case Else
.Cells.Locked = False
.Range("G2:AR7").Locked = True
.Protect Password:="Test"
End Select
End With
Next blatt
End Sub
Ist das tatsächlich so? Oder habe ich etwas falsch gemacht?
Vielen Dank für eure Hilfe.
Viele Grüße
Andreas
Anzeige