autofilter in beveiligd werkblad

[Breeker]

Ik heb een vraag, tijdje geleden lukte het mij middels onderstaande macro
een werkend autofilter te gebruiken op een beveiligd werkblad. Krijg het nu
alleen niet meer voor elkaar. Wat doe ik fout, volgens mij moest je iets
met celeigenschappen doen (niet alles beveiligen), graag hulp. Hier de
macro:

Private Sub Workbook_Open()
With Sheets("Blad1")
.Protect UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub

Bij voorbaat dank!

 

[jpvs]

Probeer dit eens :

Voor Excel 97 en 2000: zet volgende in ThisWorkbook

Private Sub Workbook_Open()
With Sheets("Blad1")
.Protect UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub


Excel 2002 en 2003
Extra - Beveiliging - Blad beveiligen
'Autofilter gebruiken' aanvinken

Hier vind je bijna alles over AutoFilter : http://www.contextures.com/tiptech.html

Pierre

 

[Breeker]

autofilter

Pierre,

De macro die je geeft (dezelfde als waar ik mee kwam) zou inderdaad moeten werken in Excel97, maar dat doet ie dus om een of andere reden niet.....

 

[jpvs]

Een ander mogelijkheid komt van de site Contextures

zie onder "AutoFilter - Protected Sheet"

In previous versions of Excel, use a Workbook_Open macro to set the protection to user interface only.
Store the following code on the ThisWorkbook module sheet. It also turns on the AutoFilter is one is not in place:

Private Sub Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("Data") ' Werkblad aanpassen?
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub



Misschien kan dit helpen?

Pierre

 

[Breeker]

autofilter

Pierre, dank voor je reactie maar het werkt voorals nog niet. Bijgevoegd een bestandje waarin ik alles heb gedaan - mijns inziens - zoals het beschreven staat op die site. Graag alsnog je hulp.

 

[jpvs]

Heb eerst geprobeerd op Excel 2003 met Extra - Beveiliging - Blad beveiligen
'Autofilter gebruiken' aanvinken

dit werkte?
terug uitgevinkt en op laptop met Excel 2000 met dit in ThisWorkbook

Private Sub Workbook_Open()
With Sheets("Blad1")
.Protect UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub

werkte het ook?
kun je eens proberen met deze map te proberen of het gaat, zie bij lage.

Met welke versie werk je?

Pierre

 

[Breeker]

autofilter

Pierre,

Alsnog gelukt. Met het scriptje van jou. Dank!