Autofilter ändern bei Blattschutz in shared file
09.07.2014 21:52:11
Axel
Hallo werte Experten,
ich bastel jetzt schon einen Tag an diesem Problem herum.
Auch mit G00gle habe ich wenig hilfreiches gefunden.
Folgendes Problem:
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
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