Excel VBA - Filtern trotz Passwortschutz
06.03.2020 10:13:06
T
leider bekomme ich es nicht alleine hin und bevor ich weiter verzweifle versuche ich mein Glück hier zu finden... :)
Ich habe eine Excel Liste mit entsprechenden Makro erstellt. Da viele Nutzer bekanntlich den Brei verderben können, will ich diese Passwort geschützt lassen. Soweit so gut, in zahlreichen Foren wird der passende Code " ActiveSheet.EnableAutoFilter = True" angegeben. Egal an welche Stelle ich ihn bisher eingegeben habe, sobald ich eine neue Zeile einfüge (über den Button der mit dem Makro hinterlegt ist) kann ich danach nicht mehr Filtern.
Der Code sieht wie folgt bisher aus:
pre>
Sub Zeile()
ActiveSheet.Unprotect Password:="xxx"
Rows(Tabelle1.Range("A65535").End(xlUp).Row - 0).Select
Selection.Insert Shift:=xlDown
ActiveSheet.Protect Password:="xxx"
ActiveSheet.EnableAutoFilter = True
End Sub
Wäre toll, wenn mir jemand helfen könnte.
Danke schon mal im Voraus.