Clever-Excel-Forum

Hallo zusammen,

ich nutze in verschiedenen Modulen und UserFormen immer wieder den folgenden Code:

Code:
'Blattschutz entfernen

Code:
ThisWorkbook.Worksheets("TabellenName").Protect Password:="cleverexcel"

Code:
[..] Anderer Code [..]

'Blattschutz einfügen

ThisWorkbook.Worksheets("TabellenName").Protect Password:="cleverexcel"

Allerdings möchte ich, dass trotz Blattschutz Filtern möglich ist.
Die Überschriften sind bereits mit Filtern versehen, jedoch ermöglicht es der Blattschutz nicht.

Habe bereits versucht folgenden Code anzuhängen, was aber auch nicht funktioniert hat.

Code:
ThisWorkbook.Worksheets("TabellenName").EnableAutoFilter = True

Jemand eine Idee?

Hallo,

Code:
ThisWorkbook.Worksheets("TabellenName").Protect Password:="cleverexcel", AllowFiltering:=True

Gruß

Hallo Korain,

ich bin mir nicht ganz sicher, ob ich Dich richtig verstehe. Eigentlich brauchst Du das Tabellenblatt beim Blattschutz nur so oder ähnlich zu formatieren:

[
Bild bitte so als Datei hochladen: Klick mich!
]
Dann geht nach dem Blattschutz auch noch das Filtern und Sortieren. Im übrigen kannst Du, - aber das weißt Du selbst, - zu Beginn Deines VBA Codes mit "Unprotect" den Blattschutz aufheben und am Ende des Codes den Blattschutz mit "Protect" wieder aktivieren.
Grüße
Norbert

Sorry, Bild kam nicht mit:

Im Dialog Blatt schützen:

"Sortieren"
"Autofilter verwenden"

Haken setzen.

Grüße

Norbert

(10.02.2022, 10:47)maninweb schrieb: [ -> ]Hallo,

Code:
ThisWorkbook.Worksheets("TabellenName").Protect Password:="cleverexcel", AllowFiltering:=True

Gruß

Hallo Mani,

danke für die Lösung, klappt perfekt!

Korain

Korain

maninweb

NobX

Korain