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:
Ce code fonctionne (testé du moins quand la feuille n'est pas protégée).
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
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:
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?
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
Merci d'avance pour l'aide que vous pourrez m'apporter.
Partager