Using VB to Lock Cells based on value in another cell

[Guest]

Is there a way to lock cells using VB based on the value of another cell. Example:

IF A2 = A1 then
Locked Cells C2 and D2 from data entry.

Thanks.

 

[Juan Pablo González]

Put this macro in the sheet's module.

Private Sub Worksheet_Calculate()
If [A2] = [A1] Then [C2:D2].Locked = True Else [C2:D2].Locked = False
End Sub