Lock cells within a row based on cell value

I want to run a macro that will protect all the cells of a range within a row based on the value of two cells within that same row.

This only needs to run once so a worksheet change is not necessary but it needs to be a small code instead of a conditional format because it needs to run after another macro runs. If i make it conditional, it will prevent my code from running.

I need to watch C1 and H1 to determine if R1:AI1 need to be locked or not.

If C1 = "Apple" then R1:AI1 = locked
OR
If H1 = "Pear" then R1:AI1 = locked

This has to be done on multiple rows (137 to be exact). Is there any way to do this using VBA?

Hi PY,

You might try:

Please Login or Register  to view this content.

The Locked property doesn't take effect until you protect the worksheet, of course.