Macro help to see if cells lock after data input.

[ghrek]

Hi
I have a macro but dont unerstand it at all. sorry.

I have is a workbook that has certain cells unlocked so data can be input and others locked. The unlocked cells are coloured yellow.
What im trying to do is when data is input into a unlocked cell I need it locked and the yellow in the cell turn white.

Any ideas, Macro below..

Private Sub Worksheet_Change(ByVal Target as Range) 
    Target.Font.ColorIndex = 5
For Each rng In ActiveSheet.Range("B4:C9")

        If Not IsEmpty(rng) Then

            rng.Locked = True

        Else

            rng.Locked = False

        End If

    Next rng

 

[Dermot]

I think you want something like this

Private Sub Worksheet_Change(ByVal Target as Range) 
    If Target.Interior.ColorIndex = 19 And Target<>"" Then   'change 19 to 6 for bright yellow
        Target.Interior.ColorIndex=-4142
        Target.Locked=True
    End If
End Sub