Need to lock data based on '=today()' value
 

I have no idea how to program in vb and I feel that the learning curve is
quite big.
Thanks for your help.

For every sheet there is a cell that has A1=today()
Each column from B9 to BB9 has a date field B9=10/15{date} and C9=(B9+7) and
so on.
I need to lock the cells in each column under the respective date (listed in
B) if it is less than A1.(today)

Hope it is a clear explanation. If not please let me know.

Thanks again.
D Patel