Hi,

I use XP SP2 MS Office 2003.
I created a WB with a WS using the Filter function, and since I wanted to
protect the WS, in order to allow the filter to work I've checked the Filter
box. So far so good.

Unfortunately, some of the users have OS W2K - MS Office 2000 or OS XP SP1 -
MS Office 2000.
As a result, when they try to use the filter function, it doesn't work.

I entered the following code to solve the issue, but still the problem is
there.

Private Sub Workbook_Open()
'Allow filter to work in Excel 2000
With Worksheets("Sheet1")
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Can you help me in understanding where I'm wrong?

Thanks
Alex