Autofilter und Blattschutz

15/03/2009 - 18:46 von Willy Steffen | Report spam
Hallo NG
Ich benutze XL2003
Ich habe ein Problem mit dem Autofilter in meiner Blatt geschützten Anwendung.
Der Blattschutz hat einen freien Eingabebereich von A6 bis H100, die Anz
Zeilen können mit einfügen Zeilen oder löschen Zeilen àndern, jedoch nicht
die Zeilen bis und mit 5. Die Zeile 5 (A5:H5) beinhaltet die Spaltentitel und
ist auch geschützt.
Ich habe nun ohne Blattschutz manuell einen Autofilter platziert. Dies
funktioniert, bis Makros durchlaufen werden, mit dem ich den Blattschutz
deaktiviere und am Ende wieder aktiviere. Dann kann ich nicht mehr die Zeile
mit dem Autofilter aktivieren, es kommt am Cursor die Hand mit dem Zeigfinger.

Ueber Extras > Benutzer dürfen Bereiche bearbeiten > Blattschutz > habe ich
die Option "nicht gesperrte Zellen anwàhlen", "gesperrte Zellen anwàhlen" und
"Autofilter anwenden" aktiviert. Aber irgendwie funktioniert es nicht. Auch
als ich einen Bereich A5:H5 gewàhlt, funktioniert auch nicht.
Kann mir da jemand helfen?
Ich danke bereits im Voraus vielmals für Eure Bemühungen
Nun hier den Code des Blattschutzes den ich in jedem Makro auffrufe:

Public Sub Blattschutz_Nein()
'Ereignisse unterdrücken
Application.EnableEvents = False
'Blattschutz wird entfernt
ActiveSheet.Unprotect ("abc")
'automatische Bildschirm Auffrischung wird ausgeschaltet
Application.ScreenUpdating = False
'automatische Berechnung wird ausgeschaltet
Application.Calculation = xlCalculationManual
End Sub

Public Sub Blattschutz_Ja()
'automatische Berechnung wird eingeschaltet
Application.Calculation = xlCalculationAutomatic
'automatische Bildschirm Auffrischung wird ausgeschaltet
Application.ScreenUpdating = True
'Ereignisse wieder Erlauben
Application.EnableEvents = True
'Blattschutz wird aktiviert
ActiveSheet.Protect ("abc")
'erlauben des Autofilters
Worksheets(1).EnableAutoFilter = True
End Sub
 

Lesen sie die antworten

#1 Dietmar Vollmeier
15/03/2009 - 22:23 | Warnen spam
Servus Willy!

*Willy Steffen* schrieb am 15.03.2009 um 18:46 Uhr...
[Probleme mit Autofilter]



Ändere das mal auf

Public Sub Blattschutz_Ja()
'automatische Berechnung wird eingeschaltet
Application.Calculation = xlCalculationAutomatic
'automatische Bildschirm Auffrischung wird ausgeschaltet
Application.ScreenUpdating = True
'Ereignisse wieder Erlauben
Application.EnableEvents = True
'Blattschutz wird aktiviert


|> ActiveSheet.Protect Password:="abc", AllowFiltering:=True
End Sub



HTH
und tschüss | "Das Radio hat absolut keine Zukunft."
Didi | --> Lord Kelvin, Mathematiker und Erfinder, 1897

Ähnliche fragen