AutoFilter nicht möglich
12.08.2003 17:18:25
Thomas S.
Ich habe ein Blatt mit folgendem Code geschützt:
Sub Blattschutz()
Dim Blatt As Variant
Blatt = ActiveSheet.Name
Sheets(Blatt).Select
ActiveSheet.Protect Password:="hallo", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End Sub
Wenn ich jetzt in dem Blatt den AutoFilter aktivieren möchte, wird dies verweigert...? Nur der Spezialfilter ist aktivierbar.
Was mach ich falsch?
Gruß Thomas