Unless something has changed,
If it isn't, then it won't work the next time you open the workbook.

It has to be set each time as it is non-persistent when done this way.

You might want to do some additional testing.

--
Regards,
Tom Ogilvy


"Jérémie Gent" wrote:

OK, perfect!
This works fine, thanks Pascal!
Doesn't need to be in the Workbook codemodule though, so even better!

Jérémie

"papou" <cestpasbon@çanonplus schrieb im Newsbeitrag
...
Hello
Your code won't work with Excel2000.
Place this code into thisworkbook and amend accordingly:
Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True 'amend sheet codename
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True 'amend
sheetcodename
End Sub

Cordially
Pascal