Geschützes Blatt - Zeilen ausblenden
09.02.2004 11:35:28
Birgit
Ich habe diesen Sub im VBA.
Private Sub OptionButton1_Change()
If OptionButton1.Value = True Then
Worksheets("DMR-Formular").Rows("77:83").Select
Selection.EntireRow.Hidden = False
Else
Worksheets("DMR-Formular").Rows("77:83").Select
Selection.EntireRow.Hidden = True
End If
End Sub
Alles funktioniert gut, bis ich das Blatt schreibschütze. Dann kommt jedes Mal ein Laufzeitfehler 1004 "die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden ".
Anzeige