Autofilter trotz Blattschutz
28.02.2008 08:15:04
alex
ich arbeite in meinem Arbeitsblatt mit diesem Makro (aufgezeichnet).
Sub sortierensch1()
' sortierensch1 Makro
ActiveSheet.Unprotect "Passwort"
Range("A7:P124").Select
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7").Select
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect "Passwort", userinterfaceonly:=True
End Sub
Weiterhin verwende ich Autofilter.
Wenn ich die Arbeitsmappe öffne, kann ich die Autofilter nicht verwenden, sondern erst wenn ich auf meine Schaltfläche klicke (sprich: das Makro ausführe) gehen die Autofilter.
Hab auch schon ausprobiert das Blatt per Hand zu schützen, mit der Einstellung "Autofilter verwenden".
Dann schließe ich die Datei mit speichern, rufe sie wieder auf, dann geht es von Anfang an, bis ich das Makro ausführe und wieder schließe und öffne, dann wieder nicht.
Wie kann man das machen, das die Autofilter auch so gleich funktionieren ohne vorher die Schaltfläche zu betätigen? Die Datei muss aber weiterhin geschützt sein.
Grüsse von
alex