Makro Filter zurücksetzen trotz Passwortschutz
08.07.2015 08:10:01
Marco
Ich bin zwar kein Excel Neuling, konnte aber im Bereich von VBAs noch kaum Erfahrungen sammeln.
ich habe folgendes Anliegen:
Ich habe ein geschütztes Blatt. Es gibt mehrere Spalten in denen nach Inhalten gefiltert werden kann. Ich möchte nun, dass diese Filter vor dem Schließen der Liste jedes mal zurückgesetzt werden. Hierfür muss der Blattschutz (mit Passwort) außer Kraft gesetzt werden. Das alles hab ich durch Forums-Recherche mehr oder weniger gut hinbekommen.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Unprotect "Mein Passwort"
Dim wksBlatt As Worksheet
For Each wksBlatt In ThisWorkbook.Worksheets
If wksBlatt.FilterMode Then wksBlatt.ShowAllData
Next wksBlatt
ActiveSheet.Protect "Mein Passwort"
ThisWorkbook.Save
End Sub
Ich habe aber noch zwei Probleme:
1. Wenn das Makro das Passwort wieder vergibt und das Blatt schützt, gehen meine Freigaben (Nutzer dürfen: Gesperrte Zellen auswählen, Nicht gesperrte Zellen auswählen, Zeilen einfügen, Sortieren, AutoFilter verwenden) verloren, sodass die Haken entfernt werden und der nächste der die Liste öffnet kann die Tabelle nicht mehr wirklich nutzen kann.
2. Außerdem sollen alle AutoFilter zurückgesetzt werden bis auf der in Spalte I.
Schon mal vielen Dank für eure Antworten!
Grüße,
Marco