VBA - Autofilter trotz gesperrtem Blatt

10/07/2009 - 14:23 von Patrick Pohlmann | Report spam
Hallo Zusammen,

ich habe ein .xls Dokument (Excel 2003) bei dem ich mit VBA einige
Formatierung usw. durchführe. Einige Felder sind standmàßig gesperrt und das
ganze Blatt ist mit Kennwort geschützt. Um das Format àndern zu können wird
bei EIngae der Blattschutz durch VBA im Hintergrund kurz aufgehoben und
danach wieder eingefügt.

ActiveSheet.Unprotect ("passwort")

ActiveSheet.Protect ("passwort")


Das Problem ist nun aber, dass einige Spalten per Autofilter sortierbar sein
sollten. Dies ist aber wohl nicht möglich. (manchmal kurz doch, aber
irgendwie kann ich das nicht nachbauen wann und wann nicht.) Auf jeden Fall
ist die Zelle, die die Spaltenüberschrift darstellt unter Blattschutz nicht
mal per Mausklick auswàhlbar (obwohl nicht als gesperrt gekennzeichnet). Ich
kann aber den Inhalt àndern wenn ich von einer anderen freien Zelle mit der
Tatstatur (Pfeiltasten) dort hin navigiere. Sehr seltsam.

Wie auch immer, kann mir jemand sagen ob und wie ich es hinbekomme, dass ich
den Autofilter unter Blattschutz nutzen kann?

Danke für Eure Hilfe

Grüße

Patrick
 

Lesen sie die antworten

#1 Claus Busch
10/07/2009 - 14:40 | Warnen spam
Hallo Patrick,

Am Fri, 10 Jul 2009 14:23:00 +0200 schrieb Patrick Pohlmann:

Das Problem ist nun aber, dass einige Spalten per Autofilter sortierbar sein
sollten. Dies ist aber wohl nicht möglich. (manchmal kurz doch, aber
irgendwie kann ich das nicht nachbauen wann und wann nicht.) Auf jeden Fall
ist die Zelle, die die Spaltenüberschrift darstellt unter Blattschutz nicht
mal per Mausklick auswàhlbar (obwohl nicht als gesperrt gekennzeichnet). Ich
kann aber den Inhalt àndern wenn ich von einer anderen freien Zelle mit der
Tatstatur (Pfeiltasten) dort hin navigiere. Sehr seltsam.



aktiviere den Autofilter *vor* dem Schützen und schütze dann so:
With ActiveSheet
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True
End with


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen