Hi,

I am having problem with filtering a protected worksheet in a shared
workbook. I used the macro below which was provided on this discussion
group. When I share the workbook and open the file again, I get the
following error:

Run-time error '1004':
Protect method of Worksheet class failed

Your help is greatly appreciated!
Phuong

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