XL 2016 Protection de nombreuses cellules sur plusieurs pages

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:D12,F6:F12,H6:H12,J6:J12,L6:L12,B18:B24,D18:D24,F18:F24,H18:H24,J18:J24,L18:L24,B30:B36,D30:D36,F30:F36,H30:H36,J30:J36,L30:L36,B42:B48,J78:J84,L78:L84,B90:B96,D90:D96,F90:F96,H90:H96,J90:J96,L90:L96,B102:B108,D102:D108,F102:F108,H102:H108,J102:J108,L102:L108,B114:B120,D114:D120,F114:F120,H114:H120,J114:J120,L114:L120,B126:B132,D126:D132,F126:F132,H126:H132,J126:J132,L126:L132,B138:B144,D138:D144,F138:F144,H138:H144,J138:J144,L138:L144,B150:B156,D150:D156,F150:F156,H150:H156,J150:J156,L150:L156,B162:B168,D162:D168,F162:F168,H162:H168,J162:J168,L162:L168,F150:F156,H150:H156,J150:J156,L150:L156,B162:B168,D162:D168,F162:F168,H162:H168,J162:J168,L162:L168D42:D48,F42:F48,H42:H48,J42:J48,L42:L48,B54:B60,D54:D60,F54:F60,H54:H60,J54:J60,L54:L60,B66:B72,D66:D72,F66:F72,H66:H72,J66:J72,L66:L72,B78:B84,D78:D84,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

bbb38

XLDnaute Accro
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

  • Flo68.xlsm
    52.9 KB · Affichages: 11

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 912
Membres
101 837
dernier inscrit
Ugo