Hi Gordon!

I think you can try next idea.

Sub ProtectAndUnprotect()
' if you unprotect you sheet
Sheets("OwnSheet").Unprotect "YourPassword"

' you autofilter code (you can recorded that)

' end of you program
Sheets("OwnSheet").Protect "YourPassword"
End Sub

Regards,
Kari J Keinonen