Autofilter auf geschütztem Arbeitsblatt?

[Tom]

Hallo zusammen.
Folgende Situation:
Ich habe ein Arbeitsblatt mit einem Autofilter (3
nebeneinanderliegende Spalten). Nun möchte ich dieses
Arbeitsblatt gegen unerwünschte Eingaben schützen (Extras-
Schutz-Arbeitsblatt schützen). Soweit so gut; nur kann
ich dann keine Filter mehr setzen.
Hat jemand eine Ahnung warum? Oder noch besser, wie man
diesem Problem abhilfe schaffen könnte?
Für jeden Input wäre ich sehr dankbar.
Gruss
Tom

[Bärbel Strauß]

Hallo Tom,
mit welcher Version arbeitest du? Bei Excel XP kann man beim Schutz des
Blattes die Option "Autofilter verwenden" aktivieren. Dann kann in einem
geschützten Blatt nichts geändert, aber gefiltert werden. Bei den
Vorgänger-Versionen hast du - glaube ich - keine Chance.

Gruß Bärbel


"Tom" <***@hotmail.com> schrieb im Newsbeitrag news:021d01c371ed$e770e7f0$***@phx.gbl...
Hallo zusammen.
Folgende Situation:
Ich habe ein Arbeitsblatt mit einem Autofilter (3
nebeneinanderliegende Spalten). Nun möchte ich dieses
Arbeitsblatt gegen unerwünschte Eingaben schützen (Extras-
Schutz-Arbeitsblatt schützen). Soweit so gut; nur kann
ich dann keine Filter mehr setzen.
Hat jemand eine Ahnung warum? Oder noch besser, wie man
diesem Problem abhilfe schaffen könnte?
Für jeden Input wäre ich sehr dankbar.
Gruss
Tom

[Tom]

Hallo ihr lieben.
Vielen Dank für euren Einsatz. Ich habe mich für Bernd's
Lösungsvorschlag entschieden. Funktioniert einwandfrei.

Besten Dank
Tom

Post by Tom
Hallo zusammen.
Ich habe ein Arbeitsblatt mit einem Autofilter (3
nebeneinanderliegende Spalten). Nun möchte ich dieses
Arbeitsblatt gegen unerwünschte Eingaben schützen

(Extras-

Post by Tom
Schutz-Arbeitsblatt schützen). Soweit so gut; nur kann
ich dann keine Filter mehr setzen.
Hat jemand eine Ahnung warum? Oder noch besser, wie man
diesem Problem abhilfe schaffen könnte?
Für jeden Input wäre ich sehr dankbar.
Gruss
Tom
.

[Bernd Held]

Hallo Tom,

nun, wenn Du eine Version vor XP hast, dann kannst Du das Ganze mit einem
Trick erreichen.

das funktioniert normalerweise nicht. Du kannst Excel aber austricksen.
-Bevor Du den Blattschutz einstellst, blendest Du die Filter ein.
-Dann schützt Du das Blatt
-Jetzt startest Du folgendes Makro:

Sub FilternAuchBeiBlattschutz()
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub

Damit kannst Du dann auch im geschützten Blatt filtern.

Viele Grüße
Bernd
MVP für Microsoft Excel
Aktuelle VBA-Schulungen und VBA-Bücher
unter http://held-office.de

"Tom" <***@hotmail.com> schrieb im Newsbeitrag news:021d01c371ed$e770e7f0$***@phx.gbl...
Hallo zusammen.
Folgende Situation:
Ich habe ein Arbeitsblatt mit einem Autofilter (3
nebeneinanderliegende Spalten). Nun möchte ich dieses
Arbeitsblatt gegen unerwünschte Eingaben schützen (Extras-
Schutz-Arbeitsblatt schützen). Soweit so gut; nur kann
ich dann keine Filter mehr setzen.
Hat jemand eine Ahnung warum? Oder noch besser, wie man
diesem Problem abhilfe schaffen könnte?
Für jeden Input wäre ich sehr dankbar.
Gruss
Tom

[Melanie Breden]

Hallo Tom, Hallo Bernd,

Post by Bernd Held
nun, wenn Du eine Version vor XP hast, dann kannst Du das Ganze mit einem
Trick erreichen.
das funktioniert normalerweise nicht. Du kannst Excel aber austricksen.
-Bevor Du den Blattschutz einstellst, blendest Du die Filter ein.
-Dann schützt Du das Blatt
Sub FilternAuchBeiBlattschutz()
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub
Damit kannst Du dann auch im geschützten Blatt filtern.

zur Info:

Der 'UserInterfaceOnly'-Parameter der 'Protect-'Methode in Verbindung mit der
'EnableAutoFilter'-Eigenschaft funktioniert auch noch in ExcelXP und höher (2002/2003).

Ab XL2002 kann man jedoch über das Menü Extras | Schutz | Blattschutz
verschiedene Funktionen aktivieren, welche bei eingeschaltetem Blattschutz
durch den Anwender noch möglich sind.
Dazu zählt auch die AutoFilter-Funktion.

In VBA reicht ab XL2002 dazu eine Zeile aus:
ActiveSheet.Protect AllowFiltering:=True

--
Mit freundlichen Grüßen
Melanie Breden

_____________________
[Microsoft MVP für Excel]