Protéger les cellules qui contiennent un "X"

Bonsoir,

Ci-joint un classeur comme exemple, afin de trouver une solution pour verrouiller les cellules lorsqu'un "X" est rencontré sur la colonne B et F

Comment peut-on réaliser ça ?

Merci et bonne soirée,

Cordialement,

Philippe

Bonjour,

Un exemple en attendant un complément d'informations.

On interdit simplement la sélection de la cellule comportant un X.

Cdlt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("B:B,F:F")) Is Nothing Then
        If UCase(Target.Value) = "X" Then Target.Offset(, -1).Select
    End If
End Sub

Bonjour,

Bonjour Jean-Eric

Une autre version (En feuille 1)

Après essai, Niet, protège toutes les cellules

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B:F")) Is Nothing Then

Sheets("Feuil1").Unprotect

If UCase(Target.Value) = "X" Then

Target.Locked = True

Else

Target.Locked = False

End If

End If

Sheets("Feuil1").Protect

End Sub

Merci,

En fait toutes les cellules de la feuille sont protégées sauf les colonnes B et F, je n'ai pas encore fais d'essai car mon ordinateur n'est pas allumé , je répond d'une tablette.

Merci encore, je vous tiens au courant.

Philippe

Bonjour,

J'ai fais des essais c'est très bien, serait-il possible d'obtenir le même résultat uniquement à l'ouverture du classeur ?

Ce dernier pourrait changer de nom après enregistrer sous.

Le nom de la feuille est "essai1".

Merci,

Philippe