ich möchte folgenden Codes zum Ausblenden/Einblenden von Zeilen in einem geschützten Blatt ausführen:
1.
Private Sub CommandButton1_Click()
Dim c As Range
Range("A1").Activate
'Untersuche alle Zellen der Spalte A
For Each c In Range("A1").CurrentRegion.Columns(1).Cells
If c.Value = " " Then
'Ganze Zeile ausblenden
c.EntireRow.Hidden = True
End If
Next c
End Sub
2.
Private Sub CommandButton2_Click()
'Alles Einblenden
Range("A1").CurrentRegion.Rows.Hidden = False
End Sub
Leider bekomme ich die Fehlermeldung "Laufzeitfehler 1004", dass dieser Befehl in einem geschützten Blatt nicht ausgeführt werden kann. Beim Debuggen wird die Zeile "For each c in Range..." markiert. Was muss ich ändern, damit ich den Befehl in einem geschützten Blatt ausführen kann.
Vielen Dank für Eure Hinweise,
Markus