Office: Autofilter trotz Blattschutz verwenden

Hallo Ihr Spezialisten, ich komm wieder nicht weiter.
Ich habe zwei Makros gespeichert. Das erste zeigt mit über dem
Autofilter alle Zeilen die in Spalte Menge einen Wert haben (>1,00).
Das zweite Makro blendet wieder alle Zeilen ein (auch die mit Menge NULL)
Funktioniert auch. Ich möchte jedoch das Blatt schützen, damit keine
Formeln überschrieben werden, aber DANN funktionieren die Makros
nicht mehr. Excel Version 2003.

Nachstehendes Makro blendet alle Zeilen mit >0.00 ein:
Private Sub CommandButton2_Click()
AutoFilterMode = False
Range("B19:E19").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">0.00", Operator:=xlAnd
End Sub

Folgendes Makro blendet wieder alle Zeilen ein
Private Sub CommandButton2_Click()
ActiveSheet.ShowAllData
End Sub

Könnte mir jemand helfen, wie diese Makros erweitert werden,
damit diese bei Blattschutz auch funktionieren.

Das wäre SUPER - Danke im Vorraus für EURE Mühe

 

Hallo Gery47,

mit

Code:

ThisWorkbook.Worksheets(1).Protect = True

kann man per Makro den Blattschutz für das angegebene Arbeitsblatt aktivieren,
und mit

Code:

ThisWorkbook.Worksheets(1).Protect = False

kann man ihn deaktivieren.

Starte einfach mal den Makrorekorder, und setze den Blattschutz manuell und hebe ihn danach wieder auf.
Makrorekorder beenden und den Code anschauen.
Da siehst Du dann auch die Schreibweise für die diversen Einstellungen innerhalb des Blattschutzes, die Du eventuell verwendest.

Ich hoffe geholfen zu haben.

 

Hallo Gery47,

Das nachfolgende Makro in "Diese Arbeitsmappe" im VBA- Editor von Excel einfügen, Mappe speichern und schließen.
Nach erneutem öffnen der Arbeitsmappe, sollte das Filtern trotz Blattschutz gehen.
Jetzt Ohne Passwort, ="", wenn ein Passwort gewünscht, dann nach Wunsch ändern z.B. ="123"

Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="" ' Mit Passwort 123, dann ändern(Password:="123")
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub

 

S.g. Karl,
Du bist ein Genie, hat sofort funktioniert.
Danke für Deine Hilfe.
(Natürlich auch den anderen welche mir geantwortet haben.

Gery47

 

Hallo Gery47,

Danke für die Info.

Allen noch ein schönes Wochenende, mit viel Sonne.