Demander un mot de passe pour modifier une cellule excel

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:

---

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:

---

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.

Salut,

Le plus simple est peut être de déverrouiller les cellules accessibles aux utilisateurs ? (Format de cellule, protection, décocher Verrouiller)

Cdt,
n

Bonjour,

Peut etre solution qui t'irait

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public maValeur As Variant Public Macellule As Range     Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Macellule.Address And maValeur <> Macellule.Value Then If InputBox("mot de passe") <> "Pass" Then Target.Value = maValeur End If End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range) maValeur = Target.Value Set Macellule = Target End Sub

---

bjr,

on peut mettre des mots de passe par plage :
outils => protection => permettre aux utilisateurs de modifier des plages...

Cliquez sur "Nouvelle..." pour créer une plage protégée par mot de passe

Puis cliquez sur "Protéger la feuille" en bas à gauche ou dans Outils => Protection.

Lors de la tentative de modification des plages protégées, le mot de passe est demandé directement.