Bonjour, je souhaiterai demander un mot de passe à la modification d'une cellule.

(édit: finalement j'ai réussi à lier une procédure à la modification d'une cellule, je faisais une erreur en écrivant "Workbook_SheetChange au lieu de "WorkSheet_Change" je crois. Grâce à cette procédure évenementielle je peux conditionner le changement de la cellule à la demande d'un mot de passe:
Le test:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub WorkSheet_Change(ByVal Target As Range)
     If Target = Range("UTILISATEUR") Then
        Dim MDP As Variant
        Uti_Actuel = Target.Value
        MDP = Application.InputBox("Entrer le mot de passe: ", "Mot de passe")
        If MDP = "***" Then Exit Sub
        Target.Value = Uti_Actuel
    End If
End Sub
Ce code fonctionne (testé du moins quand la feuille n'est pas protégée).

Mais j'aurai préféré pouvoir protéger la cellule par un vrai mot de passe.
Or, si je protège la feuille avec un mot de passe, lorsqu'on tente de modifier la cellule, il y a un message qui dit que la feuille est protégée, mais sans proposition de déprotéger la feuille. Or le fichier s'adresse à des personnes qui ne sauront pas forcément comment dé-protéger la cellule même s'ils auront le mot de passe. Je voudrai qu'un message demande le mot de passe direcetement quand on essaye de modifier la cellule.

Pour cela j'ai essayé ce code après avoir protéger la feuille d'un mot de passe:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub WorkSheet_Change(ByVal Target As Range)
     If Target = Range("UTILISATEUR") Then
        ActiveWorsheet.Unprotect
    End If
End Sub
Mais quand je cherche à modifier la cellule, la procédure ne se réalise plus (sans doute du à la protection de la feuille. Comment faire?

Merci d'avance pour l'aide que vous pourrez m'apporter.