[VBA-E2003] case à cocher qui verouille une case

Version imprimable

voila, j ai plusieurs tableaux dans une feuille. En dessous de chaque tableau je voudrais mettre une case a cocher qui indique que les données sont verouillées, et que lorsque l'on decoche cette case l on puise alors modifier les valeurs. (Je voudrais aussi mettre un changement ce couleur des cellules quand c verouillé).

J ai ecris ca, mais ca ne marche po, quelqu un pourrait m aider svp ? :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Landuse_tick_Click() If Landuse_tick.Value = True Then Range("W3").Select .Interior.ColorIndex = 6 .Locked = True Else Range("W3").Select .Locked = False .Interior.ColorIndex = 2 End If End Sub

12/04/2006, 07h34
bidou

le fait de faire le locked des cellules ne suffit pas, il faut protéger la feuille pour activer le verrouillage

Merci d essayer de m aider, car la je nage :(

Oui effectivement, j ai lu quelque par qu il fallait protéger la feuille, mais j avoue que j arrive pas a faire fonctionner mon option case coché pour verrouiller ou non les valeurs de mon tableau et changer la couleur des cellules en fonction du cas.

J ai ecris ca (mais c un peu a l intuit) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Private Sub Landuse_tick_Click() If Landuse_tick.Value = True Then Range("W3").Select With Selection.Interior .ColorIndex = 6 End With With ActiveSheet .Protect AllowFiltering:=False 'Deprotege la feuille .Range("W3").Locked = True 'Verrouiller la cellule W1 .Protect AllowFiltering:=True 'protege la feuille End With Else Range("W3").Select With Selection.Interior .ColorIndex = 2 End With With ActiveSheet .Protect AllowFiltering:=False 'Deprotege la feuille .Range("W3").Locked = False 'Verrouiller la cellule W3 .Protect AllowFiltering:=True 'Verrouiller la feuille End With End If End Sub
mais ca ne marche po :(

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
    With ActiveSheet
        .Unprotect
        .Range("A1").Interior.ColorIndex = 6
        .Range("A1").Locked = True 'Verrouiller la cellule A1
        .Protect AllowFiltering:=True 'protege la feuille
    End With
Else
    With ActiveSheet
       .Unprotect 'Deprotege la feuille
       .Range("A1").Interior.ColorIndex = 2
       .Range("A1").Locked = False 'Déverrouiller la cellule A1
       .Protect AllowFiltering:=True 'Verrouiller la feuille
    End With
End If
End Sub

12/04/2006, 15h30
Slumpy

Rhoooooo ... merci bcp bidou, j ai du passer 3 ou 4 heures a essayer de faire marcher ce truc sans succés.
Maintenant que je lis ton bout de code, ca me parrait super simple :(

Par contre, puisque j y suis petite question:

Quand on protege une feuille avec (.Protect AllowFiltering:=True ) on ne verouille pas les valeurs dans les cellules, on ne fait qu empecher de creer des boutons, changer les cellules de couleurs des trucs comme ca non ? EN clair, verouiller et proteger sont deux choses differentes non ?

EN tout cas grand merci
12/04/2006, 19h34
bidou

oui, c'est le verrouillage de la cellule qui protège le contenu de celle ci. La protection de feuille touche d'autre paramètre
13/04/2006, 00h16
Slumpy

Merci pour ton aide bidou, vais ptet finir par comprendre quelque chose

:wink: