Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Filtern bei Blattschutz





Frage

Hallo, ich habe bei meiner Arbeitsmappe die einzelnen Sheets mit Blattschutz belegt. Die darin enthaltenen Makros habe ich, damit sie trotzdem noch funktionieren mit Sub SchutzAusEin() ActiveSheet.Unprotect "xxx" Blabla… ActiveSheet.Protect "xxx" End Sub und den Filter mit Sub FilternAuchBeiBlattschutz() ActiveSheet.Protect userinterfaceonly:=True ActiveSheet.EnableAutoFilter = True End Sub versehen. Klappt für sich eigentlich ganz wunderbar. Ich kann im geschützten Blatt solange filtern - bis ich einmal ein Makro laufen habe lassen.Das Makro läuft, dann geht der Filter nicht mehr. Erst wenn ich ein anderes Sheet aktiviert habe, zurück zu meinem alten gehe. Dann geht auch der Filter wieder. Wo ist mein "Wurm", dass nach dem Auslösen des Makros der Filter (erst mal) nicht mehr geht? Gruß Celia

Antwort 1 von Monika

Hallo Celia,

kann es sein, dass das Makro den Dateischutz wieder aktiviert, dabei aber nicht die Userinterfaceonly-Eigenschaft auf TRUE setzt? So weit ich das verstanden habe, muss man diese Eigenschaft jedesmal wieder aktiv setzen, wenn man das Blatt schützt.

Monika

Antwort 2 von Celia

Hallo Monika,
jetzt habe ich dich ganz schön beschäftigt. Danke !

ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True

Habe ich zwar gleich an das Makro angehängt - aber wie gesagt ohne Erfolg.
Nach deinem Mail habe ich ein eigenes Makro daraus gemacht und mit
Call darauf verwiesen. Jetzt geht s .
Verstehe zwar den Unterschied nicht, aber was solls, Hauptsache es läuft.

Danke !
Celia