Macro to lock and protect the sheet for everything but todays date?

[tonywatsonhelp]

Hi everyone,
I have a spreadsheet with a tab called daily expenses,
the data has a list along the top of this months dates so form 01/09/14 to 30/09/14
I work with some pretty stupid people who cant even enter there expenses in the right column (they just see "petrol" and start typing,


so I want to lock down every column except the ones that have todays date on it?
now to make it simpler cell A1 will hold the date I'm referencing (todays date) but must stay locked and we start at column B, there is more than one column with todays date but to make it Simpler I've put the date in every column in row 1 see below for example.

So to summaries I want a macro that automatically runs will lock all columns in the workbook but unlock the columns with a date in row 1 that matches the date in A1

any ideas guys?
basic example:

04/09/2014	01-Sep	02-Sep	03-Sep	04-Sep	04-Sep	04-Sep	05-Sep	06-Sep
locked	these Columns locked			unlocked	unlocked	unlocked	these Columns locked

<COLGROUP><COL style="WIDTH: 50pt; mso-width-source: userset; mso-width-alt: 2858" width=67><COL style="WIDTH: 42pt" span=8 width=56><TBODY>
</TBODY>

and them tomorrow because the date changes the unlocked cells get locked and new cells get unlocked

 

[tonywatsonhelp]

Anyone got any ideas on this or is it impossible?