Filters wissen bij beveiligd werkblad

[verhoog]

Ik heb een spreadsheet met een flink aantal kolommen. Op de kolommen staat een autofilter, zodat gebruikers eenvoudig de informatie die voor hun relevant is kunnen filteren. Gebruikers filteren soms meerdere kolommen tegelijk. Excel bevat de functie om deze filters in 1x op te heffen (Gegevens -> Filter -> Wissen), zodat weer alle data zichtbaar worden.

Het probleem is nu dat deze functie niet werkt wanneer het blad beveiligd is, ondanks dat ik bij het opzetten van de beveiliging heb aangegeven dat autofilters gebruikt mogen worden. Ook een knop met daarachter een macro die de filters weghaalt geeft (waarschijnlijk erg logisch) een foutmelding. Hoe is dit op te lossen?

Alvast bedankt.

 

[edmoor]

En de foutmelding zelf is niet belangrijk genoeg om hier te plaatsen?
Laat die macro eerst de beveiliging opheffen, dan z'n eigenlijke werk doen en aan het einde de beveiliging weer aan zetten.

 

[verhoog]

De foutmelding is redelijk standaard:

Fout 1004 tijdens uitvoering:
Methode ShowAllData van klasse Worksheet is mislukt

Wat je voorstelt is een mogelijke oplossing. Heb je daar ook de code voor? Inclusief het er af halen van het wachtwoord en het er dan vervolgens ook weer opzetten? Wat ik nu heb is:

Sub knop ()
    ActiveSheet.ShowAllData
End sub

Alvast bedankt.

 

[edmoor]

Hier staat het uitgelegd:
https://msdn.microsoft.com/en-us/library/office/ff841143.aspx

 

[verhoog]

Dank je Edmoor.

Ik heb de code werkend gekregen, inclusief opties als autofilteren toestaan na het er weer opzetten van het wachtwoord e.d., dus dat is mooi!

Niet zo mooi is dat de knop niet werkt als je de werkmap deelt. Hij geeft dan als foutmelding: "Macro's kunnen niet worden bekeken of bewerkt in gedeelde mappen". Wat gek is, want ik wil de macro alleen maar draaien, niet bekijken of bewerken. Enig idee of en hoe dat op te lossen is?

 

[edmoor]

Heb je bij de Protect en UnProtect wel UserInterfaceOnly op True gezet?

Sheets("Bladnaam").Protect Password:="123", UserInterFaceOnly:=True

 

[verhoog]

Ja, die staat er bij. Hieronder de code.

Sub Knop43_Klikken()
    ActiveSheet.Unprotect ("123")
    ActiveSheet.ShowAllData
    ActiveSheet.Protect userinterfaceonly:=True, AllowFiltering:=True, Password:="123"
End Sub

 

[verhoog]

Heeft iemand nog een idee?

 

[verhoog]

Toch jammer dat hier niemand meer op reageert. Ik zou nog wat hulp kunnen gebruiken.

 

[edmoor]

Als er niemand reageert dan heeft kennelijk niemand de oplossing voor je. Zelf heb ik geen ervaring met gedeelde werkbladen dus kan er verder ook weinig op zeggen. Overigens is dit wat Microsoft erover zegt:

"When Sharing workbooks to allow multi-user editing, core parts of basic functionality in Excel is effectively restricted.

Any VBA code to clearly access these components will evidently fail and result in errors.

The options are to;
1) Remove the problem VBA code
2) Opt for an alternative solution "

 

[verhoog]

Ok, dank je Edmoor. Dat is klare taal van Microsoft. Erg jammer.