sécuriser des cellules

**DIDIDIDA** · 13/03/2008, 13h24

bonjour à tous

je fais une application excel sous vba, apres execution je met mes resultat dans l'une des feuille de mon classeur. ce que je veux c'est de verrouiler la pour qu'un autre utilisateur ne poura pas modifier mes résultats? alors j'ai essaié format_cellule_protection_verouiller_mot de passe, ça marche , mais apres une nouvelles execution la feuille est non verouillée?????est ce que il y a un autre moyen pour le faire?? merci par avance

autre chose j'ai essayer de proteger tout le classeur et les feuilles, alors là je ne peu meme pas executer mon programme car il feit appelle à des cellules de me feuilles???????

**fring** · 13/03/2008, 13h32

Bonjour,

Un ptit truc tout simple que j'utilise si je veux protéger une cellule c'est par exemple pour la cellule C5 :

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$5" Then Target.Offset(1, 0).Activate
End Sub

**DIDIDIDA** · 13/03/2008, 13h42

merci fring pour ta réponse

tu sais j'ai mis mes codes dans des boutons se trouvant dans une userform, alors en essayant de mettre ton code au debut, ça s'execute mais ça fonctionne pas!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

**DIDIDIDA** · 13/03/2008, 14h01

JE PENSE QUE MA QUESTION ETAIT BETE? IL FALLAIT APPELER LA PROCEDURE SINON ELLE NE VA PAS S4EXECUTER. JE VAIS REVOIR CA§§!!!!!

**tomy7** · 13/03/2008, 14h16

tu fais un sub togglebutton()

dedands tu mets

Code :

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

1
2
3
4
5
if togglebutton1.value= true then 
activesheet.Unprotect 
else 
activesheet.protect userinterfaceonly:=true
end if

et si tu fais un bouton pour copier tes feuilles.
tu ajoute a ton code activesheet.protect userinterfaceonly:=true
et comme sa toute tes feuilles sont protegees...

ou tu utilise ce code:

que tu mets ds workbook_sheetchange ()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=">1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Formule verrouillée"
.InputMessage = ""
.ErrorMessage = _
"Pour déverouiller cette formule, Données -> Validation -> Autoriser
Tout"
.ShowInput = True
.ShowError = True
End With
end sub

**DIDIDIDA** · 13/03/2008, 14h25

ma question peut apparaitre bete, mais franchements avec vba excel je n'ai jamais fait appel à des procedure je met tjr mes programme ds les boutons, alors dis moi stp est ce qu'il faut que j'appelle les procedure que tu vien de me donner à l'interieur de mon code?? merci c gentil

**tomy7** · 13/03/2008, 14h28

non tu les appel pas tu les mets dans

Code :

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

1
2
3
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
End Sub

et excel l appel tout seul des que ta feuille change

**DIDIDIDA** · 13/03/2008, 14h31

comme je veux verouiller toute les feuille de mon classeur alors j'ai utilsé la première procedure que tu m'avais données, mais quand j'execute il y rien qui est vérouillé!!!

**tomy7** · 13/03/2008, 14h39

Code :

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

1
2
3
4
5
6
7
8
9
10
11
dim Loc as variant
On Error Resume Next
     Loc = Range("A1:AD600").SpecialCells(xlCellTypeFormulas, 23)
        With Loc.Validation
            .Delete
            .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=">1"
            .IgnoreBlank = True
            .InCellDropdown = True
            .ErrorMessage = "Formulas are locked!"
            .ShowError = True
        End With

le code ameliore que j ai utilise dans un outil

**DIDIDIDA** · 13/03/2008, 14h44

ça marche pas toujour, d'ailleur dans quelle partie de ton code on précise que ça va etre toute les feuilles????

**tomy7** · 13/03/2008, 14h48

il suffit que tu rajoute activesheet devant range et c est finit
quand tu copie ta feuille sa focntionne partt

et pour verrouiller les cellules que tu veux: tu va dans data> validation >
custom et tu rentre: >1

et c est regle

**DIDIDIDA** · 13/03/2008, 14h52

désolé mais rien; ça marche pas!!!!!!!!!tu as utiliser le meme programe et ça a marché!!

**tomy7** · 13/03/2008, 14h56

oui montre moi ton code depuis private sub....jusqua end sub

**DIDIDIDA** · 13/03/2008, 14h57

pourtant si j'ai bien compris il fallait mettre cette procedure seleument dans ThisWorkbook

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Loc As Variant
On Error Resume Next
     Loc = Range("A1:AD600").Activate.SpecialCells(xlCellTypeFormulas, 23)
        With Loc.Validation
            .Delete
            .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=">1"
            .IgnoreBlank = True
            .InCellDropdown = True
            .ErrorMessage = "Formulas are locked!"
            .ShowError = True
        End With
End Sub

**tomy7** · 13/03/2008, 15h05

tester chez moi a l instant fonctionne sans probleme si tu mets dans Menu data>validation> dans allow tu mets custom

dans formula tu mets: >1 et la sa marche

**DIDIDIDA** · 13/03/2008, 15h09

je n'ai pas encore essayer ta dernière proposition, mais je me suis rendu compte qu avec le code précdent , il me pose un prbleme quand j'essaye d'executer mes programe(dans les quelle je fait appel à des cellules de mes feuilles) il m'affiche un message comme quoi c'est securéser, alors moi je veux sécuriser mes feuilles apres l'execution!!!!!!!!!peut etre c un peu compliqué!!!!!!

**tomy7** · 13/03/2008, 15h12

essaye ma derniere proposition.

sinon utilise

tu fais un sub togglebutton()

dedands tu mets

Code :
if togglebutton1.value= true then
activesheet.Unprotect
else
activesheet.protect userinterfaceonly:=true
end ifet si tu fais un bouton pour copier tes feuilles.
tu ajoute a ton code activesheet.protect userinterfaceonly:=true
et comme sa toute tes feuilles sont protegees...

je le fais sur mon dernier outils et sa fonctionne du tonnere , vba peux faire ce qu il veux mais excel bloc juste l interfaceutilisateur sur les cellules qui sont verrouille pour les deverouiller clic droit > formatcells>protection> locked decoche

**fring** · 13/03/2008, 15h12

Pour info, la macro que je t'ai proposée ne se met pas dans un module mais directement dans la feuille, dans l'éditeur Visual Basic, menu de gauche, double clic sur la feuille en question et tu colles le code ensuite tu essayes d'écrire dans la cellule C5

**DIDIDIDA** · 13/03/2008, 15h21

merci fing, effectivement je peux pas ecrire, c'est ce que je voulais, et je suppose si je veux verrouillet toute la feuille je vais juste le préciser à la place C5.merci
merci encore à toi Tomy, gace à toi j'ai compris comment ça fonctionne les procedure evenementielles, et meme plus, encore merci

dernière question si je peux me permettre: si je veux selectionner toute la feuille ou bien des colonnes comment faire? j'ai essayer ça

Code :

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