Ein-/ Ausblenden von Zeilen bei geschütztem Blatt
27.07.2004 14:26:56
Zeilen
ich habe ein geschütztes Tabellenblatt mit zwei Buttons, der erste soll einige Zeilen ausblenden, der zweite blendet sie wieder ein.
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Rows("8:10").Select
Selection.EntireRow.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
End Sub
Wird das Makro direkt gestartet, funktioniert es, wird es über den Button aufgerufen kommt die Fehlermeldung:
Laufzeitfehler 1004: Unprotect-Methode des Worksheet-Objektes ist fehlerhaft.
Jemand eine Idee?
Gruss
Yogi
Anzeige