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