proteger des cellules excel vba

Bonjouur,
j'ai une feuil sui contient un combo box, quand je sélectionne une valeur dans le combobox, il me renvoie des informations d'une autre page, et j'aimerais bien protéger les cellule de cette page pour qu'elles soient immodifiable, j'ai le code suivant , mais il me donne une erreur

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("OS").Select ActiveSheet.Unprotect Range("A5").Select Range("A5").Activate Selection.Locked = False Selection.FormulaHidden = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Range("A1").Select

---

Bonjour Merryy,

Avec l'enregistreur de macro, on arrive facilement à un résultat de la sorte :

Code:

---

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

Option Explicit   Sub protege() Dim oRng As Range   With Worksheets("Feuil3") Set oRng = .Range("A1:D6") oRng.Locked = False   .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With   End Sub

---

N'hésite pas à revenir vers moi ! :ccool:

Cordialement,
Kimy

Bo njouuur,
Merci beaucoup , mais j'ai une erreur
Pièce jointe 186488

Bonjour,

Attention à changer le nom de la feuille dans le code de Kimy

Code:

---

Sheets("OS" aulieu de Worksheets("Feuil3"))

---

si ça vient de là

oui c'est clair merci, mais le problème c'est dans la méthode locked ;)

Merryy,

La méthode Locked fonctionne très bien sur les Range.
Tu peux vérifier, si tu veux. :ccool:

Cela vient donc du fait que ta range n'est pas bien initialisée.
Rajoute, par exemple, un MsgBox oRng.Address pour vérifier que tu as bien sété ta variable oRng.

Cordialement,
Kimy

toujours la meme erreur

toujours la meme réponse

Merci en tt cas, j'ai modifié ma première publication et elle marche très bien ;)

Bonjour,

Merryy dépose tout ton code. dis nous a quelle ligne l'erreur se produit stp

Code:

---

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

Option Explicit   Sub protege() Dim oRng As Range   With Worksheets("Feuil3") Set oRng = .Range("A1:D6") oRng.Locked = False // ici il donne l'erreur   .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With   End Sub

---

Bonjour le fil, bonjour le forum,

L'onglet doit certainement être protégé pour planter à ce moment là. Essaie comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub protege() Dim oRng As Range   With Worksheets("Feuil3") .Unprotect Set oRng = .Range("A1:D6") oRng.Locked = False .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With End Sub

---

Code:

---

.Protect Password:="fikou", DrawingObjects:=True, Contents:=True, Scenarios:=True

---

Merciiii Beaucoup
Thautheme , rdurupt

;):D