Macro mot de passe

Bonjour,
Ci dessous une macro pour protéger une ligne si la colonne 5 du tableau est "V" (fichier joint)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim oList As ListObject Set oList = Target.ListObject If Not oList Is Nothing And Target.Count = 1 Then lig = Target.Row - 4 If oList.Range(lig, 5) = "V" Then Target.Offset(, -1).Select End If End If Set oList = Nothing End Sub

---

Pour approfondir, est il possible qu'il demande un code "1234" par exemple pour modifier la ligne?
Vous comprenez mon idée?
Merci

Bonjour,

Tu peux passer par une InputBox.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim oList As ListObject Set oList = Target.ListObject If Not oList Is Nothing And Target.Count = 1 Then lig = Target.Row - 4 If oList.Range(lig, 5) = "V" Then If InputBox("Veuillez entrer le mot de passe pour modifier : ", "Mot de passe") <> "1234" Then Target.Offset(, -1).Select End If End If Set oList = Nothing End Sub

---

Là, j'ai fait un exemple rapide pour te montrer le principe. Mais il faudra compléter avec le cas où la personne clique sur "Annuler" dans l'InputBox.

As-tu testé ton code sur plusieurs cellules ? Je m'étonne de la syntaxe Range(lig, 5). La bonne syntaxe est :

Code:

---

1 2 3

Range("E" & lig) '------------ou------------- Cells(lig, 5)

---

De plus, quand j'ai fait un test rapide (sans oList, mais seulement Cells(lig, 5) ), j'avais une erreur quand je sélectionné une cellule sur une ligne <=4, car la condition Cells(lig, 5) = "V" me faisait aller sur une cellule de ligne <0, ce qui n'existe pas.

Je te laisse voir si ça ne pose pas de pb chez toi.

Bonjour riaolle,
Super,
Je te remercie.