Menu

Protection TTe feuiiles dans une macro

Messages postés
16
Date d'inscription
mardi 4 décembre 2018
Dernière intervention
9 décembre 2018
- - Dernière réponse : JCB40
Messages postés
251
Date d'inscription
lundi 2 juillet 2018
Dernière intervention
9 décembre 2018
- 9 déc. 2018 à 10:55
Bonjour le Forum,

Grâce à vous , que je remercie encore, j'ai pu réglé un problème de macro concernant la couleur de certains cadres.

Afin de complète cet exercice, j'aurai de nouveau besoin de vos lumières, je ne suis pas encore calé en Vba.

Reprenant ce dossier, j'aurai besoin que celui-ci Déprotège toutes les feuilles avant le lancement de la macro Color et que celle-ci se termine par une protection de toutes les feuilles sans mot de passe.
J'ai essayé sans succès.

le code
Public macouleur As Long

Sub ColorCadre()
tabloF = Array("JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
ChoixCouleur.Show
For f = 0 To 11
Set plage = Sheets(tabloF(f)).Range("C5:F5,H5:K5,M5:P5,C15:F15,H15:K15,M15:P15,C21:F21,H21:K21,M21:P21")
plage.Interior.Color = macouleur
Next f
End Sub


Merci à Vous.
DanVoit
Afficher la suite 

Votre réponse

2 réponses

Messages postés
16
Date d'inscription
mardi 4 décembre 2018
Dernière intervention
9 décembre 2018
0
Merci
Bonsoir,

Après une recherche , j'ai trouvé la solution.
Merci malgré à tous.
Commenter la réponse de DAN41HOM
Messages postés
251
Date d'inscription
lundi 2 juillet 2018
Dernière intervention
9 décembre 2018
0
Merci
Bonjour

Tant mieux si tu as trouvé.
Ce qui serait bien c'est que tu partages ta solution,d'autres pourraient en avoir besoin.
Cordialement
Commenter la réponse de JCB40
Entertainment Memorabilia | Madagascar 2018 MNH Captain James Cook Endeavour 4v M/S Boats Ships Stamps | Batman The Animated Series S01-S04 1080p ReMuX BluRay DTS HD-MA H 264-BTN