Sortieren/Filtern/Gruppieren bei Blattschutz und Freigabe

[Euky]

Hallo zusammen,

ich bin ein Lösungssuchender, der bei einem derzeitigen Problem auf dem Schlauch steht und dringend eure Hilfe benötigt.

Ich habe eine Tabelle, die bei uns nur von bestimmten Leuten bearbeitet werden darf. Zusätzlich soll eine recht große Anzahl an Leuten "Lese-Rechte" bekommen.

Mein Lösungsansatz war recht simpel (glaube ich)

Nutzer für Bereiche freigeben. 
Blattschutz erstellen
Datei freigeben

Nun sollen die Nutzer aber die vorhandenen Autofilter, sowie die Sortierung nutzen (2 Klicks bei dem Blattschutz und klappt). 

Die Nutzung der vorhandenen Gruppierung ist aber leider nicht möglich.

Daraufhin habe ich dieses Makro eingebaut:

Sub Workbook_Open()

Dim ws As Worksheet

Application.DisplayAlerts = False

If ThisWorkbook.MultiUserEditing Then
  ThisWorkbook.ExclusiveAccess
End If

    For Each ws In ThisWorkbook.Worksheets
        ws.Protect userinterfaceonly:=True
        ws.EnableAutoFilter = True
        ws.EnableOutlining = True
    Next ws

If Not ThisWorkbook.MultiUserEditing Then
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.FullName, _
        accessMode:=xlShared
End If
     
Application.DisplayAlerts = True

End Sub


Nun kann ich zwar Gruppieren, aber der vom Makro erzeugte Blattschutz nimmt die beiden Haken bei AutoFilter und Sortieren raus.

Könnt ihr mir hier eventuell helfen?

Die Version ist 2013, falls das relevant ist.

Gruß
Marcus

[Kuwer]

Hallo Marcus,

vielleicht so:

ws.Protect userinterfaceonly:=True, AllowSorting:=True, AllowFiltering:=True

Gruß Uwe

[marose67]

Hallo,

ich weiß nicht o es hilft. Ich habe hier eine alte Datei gefunden ...

Gruß
Marcus

[Euky]

Danke für die Antwort  :28:

Manchmal ist die Lösung so einfach .. 

Gruß
Marcus