Autofilter trotz Blattschutz
02.09.2013 11:14:04
Kathrin
ich habe ein dringendes Problem und finde keine Lösung.
Ich verwende eine Datei mit vielen Tabellenblättern. Es wird eine Umsatz-Planungsvorlage die an viele Mitarbeiter versendet wird.
Über folgendes Makro setzte ich den Blattschutz:
Sub passwortrein()
'für alle Blätter mit Passwortschutz
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="planung" 'Passwort anpassen
ws.EnableAutoFilter = True 'ermöglicht Autofilter
ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next ws
End Sub
Den Blattschutz hinaus nehme ich mit folgendem Makro:
Sub passwortraus()
Dim pw As String
pw = InputBox("bitte passwort eingeben")
If pw "planung" Then
MsgBox "Passwort falsch"
Exit Sub
Else
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Unprotect Password:="planung"
Next
End If
End Sub
Mein Problem ist, dass nach dem setzen des Blattschutzes der Autofilter einwandfrei funktioniert. Sobald ich aber die Datei schließe und erneut öffne, funktioniert der Autofilter nicht mehr. Nach einigen Recherchen habe ich die Makros auch unter "Diese Arbeitsmappe" geschoben, aber auch das funktioniert nicht.
Ich bin wirklicher Anfänger in Sachen VBA und habe mir diese Markos aus dem Netz gefischt, komme jetzt aber nicht weiter.
Hat vielleicht jemand eine Idee?
Viele Grüße
Kathrin