Befehl "Sortierung" bei Blattschutz über VBA

[submitto]

Hallo zusammen, 

habe ein VBA Problem und hoffe, dass mir jemand weiterhelfen kann.
Und zwar habe ich in einer Exceldatei einen Blattschutz über VBA eingepflegt (siehe unten). Autofilter und Gruppierung funktionieren soweit, 
jedoch bekomme ich nicht den korrekten Code zustande, die entsprechende Liste auch sortieren zu können.
Im Netz habe ich mehrere Befehle gefunden, funktionieren jedoch nicht. Hat jemand evtl. noch eine Idee, wie´s klappen könnte?


Sub Workbook_Open()

'für alle Blätter mit Passwortschutz
 
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect userinterfaceonly:=True, Password:="blablabla" 'Passwort anpassen
    ws.EnableAutoFilter = True 'ermöglicht Autofilter
    ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
    ???                        = True 'ermöglicht Sortierung

Next ws
End Sub



Grüße Christoph 

[RPP63]

Moin!
Die Worksheet.Protect-Methode [Klick] kennt den Parameter AllowSorting:=True

Gruß Ralf

---

Nachtrag:
Folgendes muss gewährleistet sein:

Mit True können Benutzer für das geschützte Arbeitsblatt eine Sortierung vornehmen. Für jede Zelle im Sortierbereich muss die Sperre oder der Schutz aufgehoben werden. Der Standardwert ist False.

[submitto]

vielen Dank für die schnelle Rückantwort. 
wenn ich diesen Befehl verwende kommt folgende Fehlermeldung beim Kompilieren (siehe Anhang).

[RPP63]

Tja, dann hast Du was falsch gemacht. 
Zeigst Du mal Deinen Code?

[submitto]

hier der Code:

Sub Workbook_Open()
'für alle Blätter mit Passwortschutz
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect userinterfaceonly:=True, Password:="blavlbla" 'Passwort anpassen
    ws.EnableAutoFilter = True 'ermöglicht Autofilter
    ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
    ws.AllowSorting = True ' ermöglicht Sortierung
Next ws
End Sub



ich finde auch die von mir verwendeten Befehle für den Autofilter und Gruppierung nicht in dieser Parameter Übersicht?

[RPP63]

Eigenzitat:

Die Worksheet.Protect-Methode kennt den Parameter AllowSorting:=True

Da stand nichts von der Worksheet-Eigenschaft .AllowSorting
Schließlich gibt es die gar nicht!
Warum poste ich eigentlich Links, wenn die nicht gelesen werden?

ws.Protect UserInterfaceOnly:=True, Password:="blavlbla", AllowSorting:=True

Aber: Beachte meinen Nachtrag!

Gruß Ralf

[submitto]

ok dank dir, soweit verstanden.

Gibt es denn keine andere Möglichkeit ohne Aufhebung des Blattschutzes die Liste zu sortieren,
ähnlich wie beim Autofilter und der Gruppierung (ws.EnableAutoFilter ,ws.EnableOutlining)?

[RPP63]

Ja!
Programmatisch, also mittels Code.
Dann brauchst Du auch nicht den Blattschutz erst löschen, dann sortieren und schließlich den Blattschutz wieder setzen.

Denn schließlich sorgt der Parameter UserInterfaceOnly:=True dafür, dass VBA werkeln darf, der Nutzer auf der GUI hingegen nicht.

Dein Ansinnen ist auch nicht exotisch, sondern wird in VBA-gesteuerten Dateien üblicherweise so genutzt.

[submitto]

Ok, aber so ganz kann ich nicht mehr folgen, ich bin leider kein Programmierer.

Was muss ich nun genau tun, einstellen oder welchen Code muss ich verwenden, damit der Autofilter, die Gruppierung und die Sortierung funktionieren, ohne dass man den Blattschutz aufheben muss. Autofilter und Gruppierungen funktionieren mit meinem Code. Wenn ich nun mit deiner Info (ws.Protect UserInterfaceOnly:=True, Password:="blavlbla", AllowSorting:=True)vervollständige , ist die Sortierung ohne eine vorherige Aufhebung des Schutzes nicht möglich.