CommandButton und Blattschutz
13.11.2002 22:36:32
Corinne
habe bereits seit 2h das Archiv durchgepflügt und keine Lösung gefunden. Ich hoffe ihr könnt mir weiterhelfen.
Habe ein Blatt, welches geschützt ist. Mittels CommandButton soll der Schutz aufgehoebn werden , damit der Autofilter ausgeführt werden kann. Doch ich bekomme immer einen Laufzeitenfehler und weiss beim besten Willen nicht wieso.
ich würde mich freuen, wenn ihr mir helfen könnt. Unten ist mein Code.
Besten Dank und en Gruess
Corinne
Private Sub cmdFilterOff_Click()
'Passwortschutz aufheben
ActiveSheet.Unprotect password:="123"
Range("a6:g6").Select
Selection.AutoFilter
ActiveSheet.Protect password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("a7:g895").Select
Range("Anfang").Select
End Sub