Locking cells out with macro

Hi guys,

I'm trying to set up a macro that locks or unlocks a column depending on what is put in the column before it.

at the moment i've got the code written in the worksheet

Please Login or Register  to view this content.

However, this means that the cells are unlocked if the cells AD14:AD38 are blank. How do I make it so that they are ONLY unlocked when the word "Approved" is in the AD column?

Thanks!

Maybe like this:

Please Login or Register  to view this content.