Autofilter trotz Schutz geht nur bedingt
17.09.2007 10:41:00
Frank
Hallo Leute,
ich hab mir hier im Archiv das untenstehende Makro herausgesucht. Dieses hab ich in "diese Arbeitsmappe" eingebunden. Es funktioniert auch soweit bis ich die Datei wieder öffne, dann ist nur der Autofilter im zuletzt geschützten Blatt aktiv.
D.h. wenn ich die Einstellung über Schutz, Blatt schützen, Autofilter verwenden anhake, mein Passwort vergebe dann funktioniert es bis zum schließen. Geht das so überhaupt wie ich das gemacht hab ?
Könnt Ihr mir helfen ?
Dank im Vorraus
Frank
Private Sub Workbook_Open()
Worksheets("Tagesstd.").Protect Password:="xxx", userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
Worksheets("Kombez.Std.").Protect Password:="xxx", userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
Worksheets("Materialeinkauf-KOM").Protect Password:="xxx", userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
Worksheets("Anwesenheit").Protect Password:="xxx", userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub