Protéger les cellules d'une couleur en renvoyant vers autre cell

Fermé
Gopalkri1 - Modifié par pijaku le 25/02/2015 à 11:04
Bonjour vous pouvez peut être m'aider... j'ai un code :Qui protège une ligne lorsque deux cellule sont remplies voir code A
ca marche pour autant je dois protéger l'onglet... et comme je dois partager ma feuille excel... ca ne marche pas...
Je voudrais au lieu de protéger la feuille renvoyer les cellule de couleur ici gris dans une cellule par un code du type B:
Je voudrai intégere B dans A je n'y arrive pas... pouvez vous m'aider s'il vous plait

B:
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


A:
Private Sub Worksheet_Change(ByVal Target As Range)
'activer les filtres
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
    '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("Voulez vous archiver la ligne?", vbYesNo, "VALIDATION SAISIE")
            ' si oui verrouiller cellules
            If retval = vbYes Then
            Range("A" & lig & ":CW" & lig).Interior.ColorIndex = 15
            Range("A" & lig & ":CW" & lig).Locked = True
                      
           End If
        End If
    End If
End Sub