Macro pour verrouiller sous excel

allanmarla Messages postés 10 Statut Membre -  
melanie1324 Messages postés 1561 Statut Membre -
Bonjour,

Je viens de créer une macro pour verrouiller certaines cellules. Cela fonctionne lorsque je laisse ouvert mon fichier excel, par contre lorsque je le ferme pour le ré-ouvrir ensuite ma feuille est toujours verrouillée mais je peux modifier mes données. Normal ??

Solution: Je dois dévérouiller la feuille puis aller dans format cellule (je peux cocher ou remplir le petit carré correspondant à verrouillage ???) je coche, puis je réactive le verrouillage de la feuille.

Est ce normal ?

Voici le code utilisé (verrouillage des cellules entre A24:F29, A1:B7,E12:E13, F10:H14, I10:L11, A10:B11)

Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A24:F29").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("A1:B7").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("E12:E13").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("F10:H14").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("I10:L11").Select
Selection.Locked = True
Range("A10:B11").Select
Selection.Locked = True
Selection.FormulaHidden = False
Selection.FormulaHidden = False


ActiveSheet.Protect "123"

Merci de votre aide.





A voir également:

1 réponse

melanie1324 Messages postés 1561 Statut Membre 156
 
Bonjour,

l'utilité de ta macro est remise en question.
définis les cellules qui doivent être verrouillées ou non manuellement.

D'après ton code, seules les cellules de A24 à F29 sont verrouillées. les autres ne le sont pas.

mais définis les à la main celles qui doivent etre verrouillées ou non.

La protection fera en sorte si on peut les modifier ou non. donc tu dois avoir une macro :

sub protéger ()

ActiveSheet.Protect "123"

end sub

et une macro déprotéger
sub déprotéger ()
ActiveSheet.UnProtect "123"
end sub
0