Excel XP Filter trotz Blattschutz
04.08.2004 14:32:31
Dorian80
Ich habe ein Problem! Und zwar habe ich eine grosse Excel Tabelle, bei der der Autofilter funktionieren soll und gleichzeitig auch der Blattschutz aktiv sein muss. Bei Ecxel 98 war das kein Problem, aber bei Excel XP funktioniert das nicht mehr. Die alte Makro bei excel 98 lautete:
Private Sub Workbook_Open()
Sheets("Name_des_Tabellenblattes").Select
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub
Jetzt brauche ich eine neue Makro, weiß aber nicht, wie diese lauten könnte! Diese hier funktioniert auch nicht!!
Sub Filtermakro()
ActiveSheet.Unprotect
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Filterkriterium"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Hat wer eine Idee? Kann mir jemand dabei helfen?
DANKE!!