Use this in the Auto_open procedure in a General module:

Option Explicit
Sub auto_open()

Dim wks As Worksheet
Set wks = Worksheets("sheet1")

With wks
.Protect Password:="hi", userinterfaceonly:=True
.EnableAutoFilter = True
End With

End Sub

(you could use the workbook_open event under ThisWorkbook, too.)

This setting isn't remembered between closing/reopening the workbook. (So
Auto_open is a nice spot for it.)

JMcG wrote:

Using Excel 2003 but need to share the worksheet with Excel 2000 users.I need
to be able to protect certain cells within the worksheet. A Macro is set-up
to sort certain info within the worksheet using various filters. When the
sheet is protected the filters no longer work. Any help would be appreciated.

--

Dave Peterson