Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A:A" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then

Me.Unprotect myPassword
With Target

.Offset(0, 1).Locked = LCase(.Value) = "yes"
End With
Me.Protect myPassword
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
__________________________________
HTH

Bob

"Harn88" wrote in message
...
Hello

I need some help with this please. I want to create a Marco that will run
if
the condition met.


A B
1 yes 100
2 yes 656
3 yes 556
4 yes 964
5 no 632
6 yes 496
7 no 656464
8 no 656
9 yes 656

For example
If A1 equal to "Yes" then Cell B1 will be unprotected and if it's equal to
"No" then the cell will remain protected. So after the Marco, the Cell
B1,B2,B3,B4,B6,B9 will be unprotected.

Do I need to create a Marco button for this or would it be possible just
for
the Marco to run when Cell A1 equal to Yes.

Thank you very much!!!

Harn