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

[Merryy]

toujours la meme erreur

[Kimy_Ire]

toujours la meme réponse

[Merryy]

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

[bboy-eazy]

Bonjour,

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

[Merryy]

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 // ici il donne l'erreur
 
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
 
End Sub

[Thautheme]

Bonjour le fil, bonjour le forum,

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

Code :

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

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

[Invité]

Code :

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

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

[Merryy]

Merciiii Beaucoup
Thautheme , rdurupt