Conditional Protection - HELP!

[jamboss]

I have been trying to write a macro with no success to conditionally protect some cells.

The spread sheet is set up as follows

Column A Column B Column C
1
1
0
0
1
0

The entry in column A changes based on a formula to 1 or 0.
I want a macro that does the following:

If cell in Column A is 1, then unlock B & C on that row. If cell is column A is 0 then do not unlock B&C on that row.
Then I want it to carry on down the column working all the cells.

Thanks in advance for your help.
James

 

[schielrn]

What is the code you are currently using? Something like this may work:

sub unlockCells()
for i = 1 to cells(rows.count,1).end(xlup).row
if cells(i,1).value = 1 then cells(i,2).resize(,2).locked = false else: cells(i,2).resize(,2).locked = true
next i
end sub

Hope that helps.