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
Unter diesem geschützen Bereich steht jeweils in B13:AT42 eine intelligente Tabelle. Bei aktivem Schreibschutz ist die Funktionalität der iT, also Tabellentools/Entwurf ausgegraut. Wenn ich den Schreibschutz rausnehme ist die iT wieder 'aktiv'. Ist das tatsächlich so? Oder habe ich etwas falsch gemacht?
Vielen Dank für eure Hilfe.
Viele Grüße
Andreas