Discussion :

[Merryy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kimy_Ire]

Bonjour Merryy,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

Cordialement,
Kimy

[Merryy]

Bo njouuur,
Merci beaucoup , mais j'ai une erreur

[vinc_bilb]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

si ça vient de là

[Merryy]

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

[Kimy_Ire]

Merryy,

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

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