Lorsqu'une ligne change de couleur la bloquer en écriture

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C4:C60020")) Is Nothing Then Range("A1").Select
If Not Intersect(Target, Range("E4:M60020")) Is Nothing Then Range("A1").Select
'If Not Intersect(Target, Range("AX4:BD60020")) Is Nothing Then Range("A1").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    'deverrouiller et modifier les cellules
    If Not Application.Intersect(Target, Range("BM4:BM6000,BN4:BN6000")) Is Nothing Then
        lig = Target.Row
        If Range("BM" & lig) <> "" And Range("BN" & lig) <> "" Then
            'repondre au message
            retval = MsgBox("Archiver la ligne", vbYesNo, "VALIDATION SAISIE")
            ' si oui verrouiller cellules
            If retval = vbYes Then
                Range("BQ" & lig & ":CW" & lig).Interior.Color = vbRed
                Range("BQ" & lig & ":CW" & lig).Locked = True
            Else
            End If
        End If
    End If
End Sub

' Macro222 Macro
'
Dim i
i = Range("F2").Value
Sheets("GENERAL").Select
    SolverOk SetCell:="$CI$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$CH$" & i
    SolverSolve True
End Sub

Sub Macro222()
'Macro Krishna GOPAL le 27/07/2014
' Macro222 Macro
'
    Dim i
    Application.EnableEvents = False
    i = Range("G1").Value
    Sheets("GENERAL").Select
    SolverOk SetCell:="$CI$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$CH$" & i
    SolverSolve True
    <gras>Application.EnableEvents = True</gras>
End Sub

Sub activ_event_excel()
    Application.EnableEvents = <gras>True</gras>
End Sub