macro to lock cell by column header based on value in another cell by column header

I have a sales report containing active customers from the database and prospective customers added by the salespeople.
I want to protect the active customers' names. So, I need a macro that:
If cell in the ""Status"" column does not contain the word ""New Prospect"" (there may be other words in this cell), then protect the cell in the ""Customer Name"" column.
Naturally, it needs to search all rows. The number of rows will vary per report. "