Protection de nombreuses cellules sur plusieurs pages
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
Bonjour Flo68 le forum
bon alors tu veux bloquer les cellules de la colonne B D F H J L par groupe de 6 lignes et un pas de 12
donc OK mais tous tes select ne servent à rien
passe nous le fichier et je te fais cela
a+
Papou
Bonjour Paritec, ou Papou ?....
Merci pour ton aide.
Je t'envoie le fichier ci-joint.
Les cellules que je cherchent à protéger sont sur les feuilles T1, T2, T3 et T4.
Si impossible de sélectionner toutes ces cellules car trop nombreuses, il est possible de passer par la sélection de colonnes comme tu le précises, mais je n'y suis pas arrivé non plus...
A+
Florent.
Re Florent le forum
et le mot de passe des feuilles il est ou??
a+
Papou
Oups....
"1234" : tout simplement
Rebonjour,
Je viens de tester la macro, mais ça coince à cette ligne :
Sheets(x).Protect "1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
Il y aurait une solution ?
Re Florent,
Si tu enregistres le fichier sur ton bureau et que ensuite tu lances la macro dans LE FICHIER QUE MOI J'AI ENVOYE
tu dis que cela ne marche pas ?????????
Chez moi cela fonctionne très bien
a+
Papou
Non, en fait ça marche super bien !
J'ai essayé sur des cellules qui se trouvaient après la ligne 84, c'est pour cela que ça ne fonctionnait pas.
J'ai juste mis + de lignes ici : For a = 6 To 84 Step 12
Un grand merci à toi !
Florent
Re Florent le forum
Ah bah oui forcément moi j’ai respecté la base de la macro fournie et la ligne Max c’était la ligne 84 !!!
Bref cela marche donc bonne journée
À plus
Papou