Of course, in XP this is much easier, but the following macro protects the sheet and also enables the autofilter (It must be turned on before running it)<pre>Sub ProtectAndFilter()
With Sheets("Sheet1")
.Protect "Password", , , , True
.EnableAutoFilter = True
End With
End Sub</pre>