Auto Format locked cells

[fireslguk]

Hi I want to adapt the code below so when the cell has locked after some input the background changes colour

The code is

Worksheet. Change

Private sub worksheet_change(byval target as range)

Activesheet.unprotect password:=“blablabla”
Target.locked = true
Activesheet.protect password := etc etc

End sub

 

[Fluff]

Try

Target.Locked = True
Target.Interior.Color = 45678
Activesheet.protect password := etc etc

 

[mrhstn]

Hi

You can set the interior colour property of the cell in a similar way to the locked property

Private Sub Worksheet_Change(ByVal Target As Range)
With Me
    .Unprotect "Password"
    With Target
        .Locked = True
        .Interior.Color = rgbLightGrey
    End With
    .Protect "Password"
End With
End Sub