Office: Trotz Blattschutz Filter löschen

Hallo zusammen,

um den Autofilter trotz Blattschutz nutzen zu können, habe ich bereits das folgende Makro unter "Diese Arbeitsmappe" liegen:

Sub Workbook_Open()
'für alle Blätter mit Passwortschutz
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="TEXT" 'Passwort anpassen
ws.EnableAutoFilter = True 'ermöglicht Autofilter
ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next ws
End Sub

Mein Problem ist, dass ich zwar den Filter benutzen kann, es müsste aber auch funktionieren, dass ich unter "Daten --> Sortieren und Filtern --> Löschen" auswählen kann, also alle gewählten Filter dann auf einmal zurücksetzen kann. Das klappt aktuell jedoch noch nicht.

Gibt es hierfür eine Lösung?

Danke euch schon mal.

:)

 

Hallo,

hab ich schon mal was dazu geschrieben.
https://www.ms-office-forum.net/foru...02&postcount=8

 

Hallo, danke für die Nachricht.

Leider löst es noch nicht ganz mein Problem. Automatisch benutzen kann ich den Filter schon trotz Blattschutz.

Problem ist: Der User filtert nacheinander bei der Arbeit viele verschiedene Spalten. Am Ende ist es daher nötig, dass er auf einen Schlag den Filter komplett wieder zurücksetzen kann, damit die ganze Liste schnell wieder angezeigt wird. Das würde er normalerweise machen, indem er in Bedienleiste von Excel auf "Daten" klickt, dann bei "Sortieren und Filtern" den Button "Löschen" anklickt. Genau dieser Button ist allerdings bei Blattschutz gesperrt, obwohl die Nutzung des Autofilter an sich erlaubt ist. Leider bleibt dieser Button anscheinend auch bei deiner vorgeschlagenen Lösung gesperrt.

Hat jemand eine Idee, wie man diesen Button "Löschen" unter "Sortieren und Filtern" dauerhaft frei schalten kann?

ODER wie man es dem Nutzer ermöglichen kann, bei Blattschutz auf eine andere Art alle Filter komplett zurückzusetzen?

Danke euch schon mal.

 

Wenn du doch schon ein Workbook_Open-Ereignis mit Schleife über alle Blätter verwendest, wieso baust du dort nicht auch gleich das Löschen aller gesetzten Filter ein? Und für den User kannst du einen Button einbauen, der das Gleiche macht.

 

Ok, dann füge ich einen Extrabutton ein, mit dem der Filter aus dem mit Passwort gesperrten Blatt wieder komplett zurückgenommen wird.

Wie müsste ich den Makro schreiben, wenn

- Blatt mit Passwort entsperrt werden soll
- alle Filter zurückgenommen werden sollen
- Blatt wieder mit Passwort geschützt werden soll und zwar Blattschutz mit den Bedingungen: "Gesperrte Zellen auswählen", "Nicht gesperrte Zellen auswählen", "Spalten formatieren", "Zeilen formatieren", "AutoFilter verwenden".

Vielen Dank für eure Hilfe.

 

Hallo zusammen,

danke für die Tipps, es hat sich jetzt erledigt, hab es selbst hinbekommen.

Schönen Tag euch noch.

 

Hallo cx37 , wie hast du das denn hinbekommen ? Ich hab die gleiche Problemstellung.