VBA to lock rows where cell contains a 1 value

Hi there,

I am a novice with VBA but I have a code which is in a sheet with a large product list and there is a column which contains a "1" if the date the product was entered is before today.
When the sheet is selected I want it to activate the macro and lock all cells containing the 1s. It does do this but if you enter new data - i,e you insert a new row into the table (say inbetween two existing products) when you try and populate that cell with data it is locked even though the column is blank (i.e. no 1)
The code is:

Please Login or Register  to view this content.

Just to state there is two other macros in the sheet, one to essentially drag formula down from the row above when a new row is inserted (for some specific columns) -this doesnt work either, and another which highlights the row selected - this does currently work.
The column with the '1's is based on a formula that references a column which the user enters a date manually into (i.e. when they create the product item). My ideal solution would have been to just lock the rows with the dates older than today which is what this code was originally based on but I had the same problem.

The code for these just in case is:

Please Login or Register  to view this content.

and

Please Login or Register  to view this content.

Any help would be much appreciated.