Zeilen u. Steuerelemente m. Blattschutz 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...