Hi

Include something like the following code in your Workbook_Open sub

Private Sub Workbook_Open()
Worksheets("Sheet1").Select
With ActiveSheet
.EnableAutoFilter = True
.Protect Password:="password", DrawingObjects:=True, _
contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End With
End Sub


Change "Sheet1" to whatever your sheet name is and change "password" to
the password you want to use.
--
Regards

Roger Govier


"prizm" wrote in message
...
I have a need to protect cell ranges in a spreadsheet and have data
filters
on and working. I am unable to both protect the worksheet with
selected
unlocked cells and have data filters working.