Office: Filter einer Tabelle per Makro löschen

Hallo,

ich habe folgenden Fall: Ich habe eine Tabelle und in dieser will per ich per Makro alle Filter löschen. Grundsätzlich habe ich das so gemacht:

Code:

Das klappt auch wunderbar. Allerdings will ich das Tabellenblat schützen. Und sobald ich das geschützt habe, sagt der mir, dass die Funktion bei geschützter Tabelle nicht möglich ist. Ich habe alternativ versucht mit:

Code:

alle Filter einzeln zu löschen. Aber bei der Funktion (sind 38 Spalten) braucht der Ewigkeiten die Auszuführen.

Das gleiche Problem habe ich mit der Funktion:

Code:

Die Funktioniert auch nur, wenn das Blatt nicht geschützt ist.

Gibt es Alternativen dazu?

Viele Grüße
V1

:)

 

Versuch mal vor dem Code den Blattschutz aufzuheben:
Code:

un danach wieder Schützen
Code:

 

Klappt prima, sowas hab ich mir vorgestellt : )

Aber eine Frage => Ich kann ja jetzt einfach mit den Developer Tools von Excel den VBA Code anzeigen lassen. Somit kann ich auch das PW sehen. Gibt's ne Möglichkeit auch das zu verschließen?

 

Habs gefunden : )

Wenn man in der "VBA Übersicht" ist, kann man mit rechter Maustaste "VBA Projekt Proberties" auswählen und da unter Protection ein Passwort hinterlegen : )