Zeilen u. Steuerelemente m. Blattschutz ausblenden
14.08.2007 11:12:00
Tommy
Dank der Hilfe von Beverly und Renee habe ich folgendes Makro erstellt.
Es soll im Tabellenblatt"MX" die Zeilen 145-295 ausblenden:
Sub MX_Tabl()
Dim sShape As Shape
Const firstRow = 145 ' Ab und mit dieser Zeile
Const lastRow = 295 ' Bis und mit dieser Zeile
With Worksheets("MX")
.Rows("145:295").Hidden = Not .Rows("145:295").Hidden
For Each sShape In .Shapes
If sShape.TopLeftCell.Row > firstRow - 1 And _
sShape.TopLeftCell.Row
Das funktioniert auch tadellos. Nur wenn ich den Blattschutz aktviere funktioniert es nicht mehr.
Gibt es eine Möglichkeit auch mit aktiviertem Blattschutz die Zeilen und Steuerelemente auszublenden?
Vielen Dank für eure Hilfe...