Auto lock cells after data entry when file is saved

I have a VB code that auto locks cells after data is entered when the file is saved, however I would like to maintain the Autofilter function on the locked sheet.
Normally when you Protect a Sheet you can 'Allow all users of this worksheet to:' - Use AutoFilter.
However the code that I am using (found out in cyberspace) just simply locks all cells with data in the named range. Is there something that I can add to the attached code to allow the use of AutoFilter once the named range has been protected?

Please Login or Register  to view this content.

Have I stumped everyone?

try:

Please Login or Register  to view this content.

what part of ThisWorkbook code in VBA do I put this? Where would I insert it in my code above?

I've never used .Parent.Unprotect so rather than mess you around with me trying to guess the correct format for that......try this instead:

Please Login or Register  to view this content.

It gives me the error "Compile Error"

Please Login or Register  to view this content.

Ok, I'm open to a complete redesign of the code if it will work a better way....
Here is what I'm looking for the sheet to do...
1) Allow users to enter data in blank cells in the table
2) Auto protect cells that have data once the file is closed. (Password can be blank or 'password' as this is just a deterrent to help keep people from messing up the file. They can unlock if needed to edit data already entered but at least by unlocking the sheet they are aware of what they are doing)
3) If the user hits TAB at the last entry the table creates a new line.
4) Don't auto protect the top 3 rows
5) allow the auto filter to work when the sheet is protected.

I'm almost there..but right now the Auto Filter doesn't work on a protected sheet, and the table doesn't automatically add a new line when TAB is hit if the sheet is protected.

I know I'm over my head, but I have had some excellent help from this forum in the past.
See the attached file....