Enable filter to work in a protected sheet from Excel 2003 to 2000

[Guest]

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

 

[Guest]

Hi,

I know it's Friday and I wouldn't like to stress, but if you can come out
with a suggestion I really would appreciate it

Thanks
Alex

 

[Dave Peterson]

My first guess is that the worksheet is protected, but a filter doesn't exist.

Then when your code runs, it tries to apply the filter and blows up because of
the protected worksheet.

Maybe unprotecting the worksheet before applying the .autofilter would be
sufficient.

If that's not it, you may want to post the details of the problem.