XL 2016 Protection de nombreuses cellules sur plusieurs pages

  • Initiateur de la discussion Initiateur de la discussion Flo68
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Flo68

XLDnaute Nouveau
Bonjour,

Je trouve énormément d'aide via tous les posts qui se trouvent dans ce forum, c'est une énorme richesse. Merci !

Malgré tout, je n'arrive pas à résoudre mon problème : j'essaie de protéger via une macro unique plusieurs cellules (beaucoup) de 3 feuilles, en retirant d'abord la protection des feuilles, puis en remettant la protection.

Etapes :
- Sélectionner les 3 feuilles concernées
- Retirer la protection des 3 feuilles (avec mot de passe)
- Protéger les cellules (identiques sur les 3 feuilles)
- Remettre la protection avec le mot de passe sur les 3 feuilles

Voici la macro qui ne fonctionne pas (trop de cellules apparemment).
Comment faire ?
Merci pour vos retours.
Florent.


Sub Macro8()

Worksheets(Array("Feuil11", "Feuil12", "Feuil13")).Select
Sheets("Feuil1").Unprotect
Sheets("Feuil2").Unprotect
Sheets("Feuil3").Unprotect
ActiveSheet.Unprotect "motdepasse"
Range("B6:B12,D6😀12,F6:F12,H6:H12,J6:J12,L6:L12,B18:B24,D18😀24,F18:F24,H18:H24,J18:J24,L18:L24,B30:B36,D30😀36,F30:F36,H30:H36,J30:J36,L30:L36,B42:B48,J78:J84,L78:L84,B90:B96,D90😀96,F90:F96,H90:H96,J90:J96,L90:L96,B102:B108,D102😀108,F102:F108,H102:H108,J102:J108,L102:L108,B114:B120,D114😀120,F114:F120,H114:H120,J114:J120,L114:L120,B126:B132,D126😀132,F126:F132,H126:H132,J126:J132,L126:L132,B138:B144,D138😀144,F138:F144,H138:H144,J138:J144,L138:L144,B150:B156,D150😀156,F150:F156,H150:H156,J150:J156,L150:L156,B162:B168,D162😀168,F162:F168,H162:H168,J162:J168,L162:L168,F150:F156,H150:H156,J150:J156,L150:L156,B162:B168,D162😀168,F162:F168,H162:H168,J162:J168,L162:L168D42😀48,F42:F48,H42:H48,J42:J48,L42:L48,B54:B60,D54😀60,F54:F60,H54:H60,J54:J60,L54:L60,B66:B72,D66😀72,F66:F72,H66:H72,J66:J72,L66:L72,B78:B84,D78😀84,F78:F84,H78:H84").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect "motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub
 
Solution
Bonjour Flo68, le forum,
Une solution avec le fichier ci-joint. Le mot de passe est mentionné sur la feuille « Accueil ». Je me suis permis de colorier les cellules protégées (plus facile pour effectuer les tests).
Amélioration à apporter : Blocage de l’écran (ne pas oublier de le rafraîchir à la fin des procédures).
Cordialement,
Bernard
Bonjour Flo68, le forum,
Une solution avec le fichier ci-joint. Le mot de passe est mentionné sur la feuille « Accueil ». Je me suis permis de colorier les cellules protégées (plus facile pour effectuer les tests).
Amélioration à apporter : Blocage de l’écran (ne pas oublier de le rafraîchir à la fin des procédures).
Cordialement,
Bernard
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour