autofilter en werkblad beveiliging

[rotrax]

Ik wil graag een autofilter toepassen, zodat iedereen dit kan gebruiken maar tegelijk wil ik het werkblad beveiligen tegen (on)bewust sloopgedrag.

kan dat?

 

[Bennie]

Kijk of deze code werkt:

Private Sub Workbook_Open()
Dim WS as Worksheet
For Each WS in Worksheets
WS.EnableAutoFilter = True
WS.Protect contents:=True, userInterfaceOnly:=True
Next WS
End Sub

Groetjes,
Bennie

 

[rotrax]

ja kijk zo kan ik het ook! ;-)

nee maar zonder gekheid, getest en het werkt perfect.

ik had steeds dat per ongeluk mensen teksten aanpasten dus dit is een prima oplossing

bedankt!

 

[peter16]

maar nu met een gedeeld bestand

De aangegeven macro mbt de autofilter werkt inderdaad goed bij beveiligde bestanden. Ik zou echter graag willen dat ik een autofilter ook kan toepassen op een gedeeld en beveiligd bestand. Weet iemand hier iets voor?

Alvast bedankt

Peter