Warum kann ich bei Aktiviertem Blattschutz und Aktiviertem Filter keine Zahlen mehr runter...

Hallo Claus,

habe die Option Autofilter verwenden beim Blattschutz aktiviert und Blattschutz gesetzt / Arbeitsmappe freigegeben.

Leider bekommen ich beim Filtern per Makro die Aufforderung, den Blattschutz zu entfernen, was bei freigegebener Arbeitsmappe jedoch nicht so einfach möglich ist, ich nicht weiß wie ich das machen soll.

Laufzeitfehler 1004.

Makroablauf bleibt in dieser Zeile stehen noch bevor der Autofilter in der darauffolgenden Zeile gesetzt wird:

...

.Range("$A$10:$BH$2000").Autofilter

...

Hallo Frank,

du hast den Blattschutz gesetzt? Was kannst du nicht mehr nutzen? Kannst du nicht mehr filtern?

Die Formel kannst du nur verändern, wenn du den Schutz aufhebst. Wenn du den Filter vorher eingerichtet hast und beim Schutz "Autofilter verwenden" aktivierst, kannst du trotz Blattschutz filtern.

Falls das alles nicht zutrifft, erkläre bitte genauer, wie du geschützt hast und was nicht mehr funktioniert.

Mit freundlichen Grüßen

Claus

Also ich habe kurz überlegt wie ich auf die Antwort reagieren soll.

Der Blattschutz hat nicht nur die einfache Aufgabe das Blatt vor jeglicher Veränderung zu schützen, sondern auch Teilbereiche zu schützen um z.B. die Struktur zu erhalten, aber inhaltliche Änderungen zu ermöglichen.

Dafür gibt es beim einrichten des Blattschutzen auch die Möglichkeiten unterschiedliche Optionen auszuwählen was ein Bearbeiter trotz Blattschutzes machen darf. Dazu zählen auch die Optionen Zellen, Zeilen oder Spalten einzufügen.

Wenn diese Option aktiviert ist darf man erwarten, dass entsprechende Datenüberprüfungen mit übernommen und nicht kommentarlos entfernt werden. Daher ist die 1. Antwort nicht hilfreich.

bye

Hallo Wolle,

mit dem von Dir abgebildeten Code wird der Blattschutz aufgehoben und nicht gesetzt.

"Also soll vor dem Schließen geprüft weden, ob der Blattschutz für die betreffenden Spalten aktiviert ist. Wenn "ja" soll das Excel-Sheet geschlossen werden, wenn "nein" soll erst der Blattschutz aktiviert werden und das Sheet dann geschlossen werden."

Wenn generell der Blattschutz gesetzt sein sollte muss ja nicht abgefragt werden ob selbiger aktiv ist, es würde reichen den Blattschutz einfach zu setzen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim wks As Worksheet

For Each wks In ThisWorkbook.Worksheets

  wks.Protect Password:="Dein_PW"

 Next wks

End Sub

Dieser Code liegt dann in "DieseArbeitsmappe" und wird ausgeführt wenn die Mappe geschlossen wird. "Dein_PW" natürlich anpassen!

lg

Chris

Hallo Claus,

klappt eigentlich ganz gut mit dem Code,

aber

1. ich kann aber keine Zeilen löschen,

hier nochmal der Code:

Sub loeschen()

With ActiveSheet
.Unprotect

Selection.EntireRow.Delete

.Protect

End With

End Sub

2. ich habe in der Zeile 5 von A-P "Filter" gesetzt die jetzt nicht mehr funktionieren

• Blattschutz wurde für diese Zeile aufgehoben
• wenn Blattschutz aktiviert dann sogar Häckchen beim Bearbeiten von Autofilter
• dann Arbeitsmappe schützen und freigeben
• und dann das Makro eusgeführt

kannst Du mir bitte hier auch noch weiter helfen

Danke

BG