ich nutze auf meinem Notebook leider nur das Office 97. Hier lässt sich nun leider nicht bei eingeschaltetem Blattschutz der Autofilter nutzen!
Wie kann ich diesen Effekt umgehen?
Kann mir jemand helfen?
Gruß Korl
Private Sub Workbook_Open()
With Sheets("DeineTabelle")
.Unprotect Password:="xxx"
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True, Password:="xxx"
End With
End Sub
Private Sub Workbook_Open()
Sheets("Name_des_Tabellenblattes").Select
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub