Discussion :

[DIDIDIDA]

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]

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]

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]

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

[tomy7]

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]

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