Autofilter ändern bei Blattschutz in shared file

Hallo werte Experten,
ich bastel jetzt schon einen Tag an diesem Problem herum.
Auch mit G00gle habe ich wenig hilfreiches gefunden.
Folgendes Problem:

Excelfile (.xlsm) ist freigegeben, damit mehrere User gleichzeitig darauf zugreifen können.

Damit Teiles eines Arbeitsblattes (Formeln etc.) nicht verändert werden können ist ein Blattschutz gesetzt.

Der Autofilter soll sowohl per VBA als auch vom Benutzer verändert werden und zurückgesetzt werden können.

Blattschutz ist angelegt mit:
Sheets("Details_AgeStock").Protect Password:="XXXX", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, userinterfaceonly:=True
Nun versuche ich mit:
ActiveSheet.ShowAllData
alles anzuzeigen, gibt einen "worksheet class failed" Fehler.
Zweite Variante:
For i = 1 To 66
Sheets("Details_weeklyAgeStock").Range("$A:$BC").AutoFilter Field:=i
Next i
Um den Filter einzeln Filter auf null zu setzten.
Gibt eine Fehlermeldung, müsste erst den Blattschutz rausnehmen.
Das geht aber nicht, da das File geshared ist und bleiben muß !
Ohne Blattschutz funzt beides, wobei letztere Version erwartungsgemäß deutlich länger braucht.
Bislang hatte ich gedacht, das mit

AllowFiltering:=True

Der Autofilter per Makro gesteuert werden kann - Fehlanzeige....
Habe ich überhaupt ein Chance alle drei Funktionen gleichzeitig zu nutzen?
Per Hand kann ich auch bei Blattschutz und shared file den Filter beliebig setzen.
Langsam verzweifelte Grüße
Axel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Workbook_Open() Sheets("Adresse").Protect UserInterfaceOnly:=True, Password:="Passwort" Sheets("Adresse").EnableOutlining = True ' Für Gliederung Sheets("Adresse").EnableAutoFilter = True ' Für AutoFilter End Sub

Guten Morgen Hajo,
gestern abend kam ich nicht mehr dazu dies auszuprobieren, war etwas gefrustet...
Danke für Deinen Vorschlag !
Heute morgen habe ich Datei neu geöffnet, Blattschutz raus, Sharing raus und gespeichert.
Dann den Filter rein, Blattschutz rein, Deinen Code in den Bereich "ThisWorkbook"
Dann Freigeben (Shared) des Excelfiles damit speichert sich das selber.
Freigabe Optionen sind:

Keep change history for 10 days

Update changes when saved

Changes being saved win

Include in personal view : NIX

dann file ganz schließen und wieder neu starten
Beim starten des Files kommt wieder die Fehlermeldung "you cannot use this command on protected bla bla bla..
Ich gebe es jetzt auf... oder hat jemand noch eine Idee?
Grüße
Axel

Beliebteste Forumthreads (12 Monate)

Autofilter ändern bei Blattschutz in shared file

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread