Lancer une macro dans fichier protégé
Résolu
christophedir
Messages postés
201
Statut
Membre
-
christophedir Messages postés 201 Statut Membre -
christophedir Messages postés 201 Statut Membre -
Bonjour,
J'essaye en vain de lancer une macro quand mon fichier est protégé, j'ai regardé sur le site les divers questions et réponses à ce sujet (j'y comprend rien du tout en VBA, même si j'ai réussi a faire cette macro sur mon fichier).
Serait-il possible d'avoir un coupe de main sur mon problème. Ci-joint mon fichier (sans la protection bien sûr).
S'il faut mettre un mot de passe de suite mettre : Terre
https://www.cjoint.com/doc/20_06/JFgpTKFQAPF_calcul-palettes-PF.xlsm
merci d'avance
christophedir
J'essaye en vain de lancer une macro quand mon fichier est protégé, j'ai regardé sur le site les divers questions et réponses à ce sujet (j'y comprend rien du tout en VBA, même si j'ai réussi a faire cette macro sur mon fichier).
Serait-il possible d'avoir un coupe de main sur mon problème. Ci-joint mon fichier (sans la protection bien sûr).
S'il faut mettre un mot de passe de suite mettre : Terre
https://www.cjoint.com/doc/20_06/JFgpTKFQAPF_calcul-palettes-PF.xlsm
merci d'avance
christophedir
3 réponses
-
Bonjour,
Remplace ta macro par celle-ciSub Macro2() ' ' Macro2 Macro ' Sheets("Palette Produit fini heure").Unprotect "Terre" Union(Range( _ "M16,O16,Q16,S16,U16,W16,Y16,AA16,AA19,Y19,W19,U19,S19,Q19,O19,M19,M22,O22,Q22,S22,U22,W22,Y22,AA22,AA25,Y25,W25,U25,S25,Q25,O25,M25" _ ), Range( _ "M28,O28,Q28,S28,U28,W28,Y28,AA28,AA31,Y31,W31,U31,S31,Q31,O31,M31,M34,O34,Q34,S34,U34,W34,Y34,AA34,AA37,Y37,W37,U37,S37,Q37,O37,M37" _ ), Range( _ "M40,O40,Q40,S40,U40,W40,Y40,AA40,AA43,Y43,W43,U43,S43,Q43,O43,M43,M45,O46,Q46,S46,U46,W46,Y46,AA46,AA49,Y49,W49,U49,S49,Q49,O49,M49" _ ), Range( _ "M52,O52,Q52,S52,U52,W52,Y52,AA52,AA55,Y55,W55,U55,S55,Q55,O55,M55,M58,O58,Q58,S58,U58,W58,Y58,AA58,AA61,Y61,W61,U61,S61,Q61,O61,M61" _ ), Range( _ "B3,B6,B9,B12,B15,B18,B21,B24,B27,B30,B33,B36,B39,B42,B45,B48,B50,B51,B54,B57,B60,M4,O4,Q4,S4,U4,W4,Y4,AA4,AA7,Y7,W7" _ ), Range( _ "U7,S7,Q7,O7,M7,M10,O10,Q10,S10,U10,W10,Y10,AA10,AA13,Y13,W13,U13,S13,Q13,O13,M13" _ )).Select Range("B60").Activate Selection.ClearContents Range("AH8:AH11").Select Sheets("Palette Produit fini heure").Protect "Terre" End Sub -
Re,
Ouvre tes yeux et regarde la macro de ton fichier ne PJ et celle que j'ai posté-
re
copie de la macro => idem à la tienne puisque c'est une copie mais cela ne change rien a mon problème.
Sub Macro2()
'
' Macro2 Macro
'
Sheets("Palette Produit fini heure").Unprotect "Terre"
Union(Range( _
"M16,O16,Q16,S16,U16,W16,Y16,AA16,AA19,Y19,W19,U19,S19,Q19,O19,M19,M22,O22,Q22,S22,U22,W22,Y22,AA22,AA25,Y25,W25,U25,S25,Q25,O25,M25" _
), Range( _
"M28,O28,Q28,S28,U28,W28,Y28,AA28,AA31,Y31,W31,U31,S31,Q31,O31,M31,M34,O34,Q34,S34,U34,W34,Y34,AA34,AA37,Y37,W37,U37,S37,Q37,O37,M37" _
), Range( _
"M40,O40,Q40,S40,U40,W40,Y40,AA40,AA43,Y43,W43,U43,S43,Q43,O43,M43,M45,O46,Q46,S46,U46,W46,Y46,AA46,AA49,Y49,W49,U49,S49,Q49,O49,M49" _
), Range( _
"M52,O52,Q52,S52,U52,W52,Y52,AA52,AA55,Y55,W55,U55,S55,Q55,O55,M55,M58,O58,Q58,S58,U58,W58,Y58,AA58,AA61,Y61,W61,U61,S61,Q61,O61,M61" _
), Range( _
"B3,B6,B9,B12,B15,B18,B21,B24,B27,B30,B33,B36,B39,B42,B45,B48,B50,B51,B54,B57,B60,M4,O4,Q4,S4,U4,W4,Y4,AA4,AA7,Y7,W7" _
), Range( _
"U7,S7,Q7,O7,M7,M10,O10,Q10,S10,U10,W10,Y10,AA10,AA13,Y13,W13,U13,S13,Q13,O13,M13" _
)).Select
Range("B60").Activate
Selection.ClearContents
Range("AH8:AH11").Select
Sheets("Palette Produit fini heure").Protect "Terre"
End Sub- Re,
Sur ta macro tu as les deux lignes en GRAS
Sub Macro2()
'
' Macro2 Macro
'
Sheets("Palette Produit fini heure").Unprotect "Terre"
Union(Range( _
"M16,O16,Q16,S16,U16,W16,Y16,AA16,AA19,Y19,W19,U19,S19,Q19,O19,M19,M22,O22,Q22,S22,U22,W22,Y22,AA22,AA25,Y25,W25,U25,S25,Q25,O25,M25" _
), Range( _
"M28,O28,Q28,S28,U28,W28,Y28,AA28,AA31,Y31,W31,U31,S31,Q31,O31,M31,M34,O34,Q34,S34,U34,W34,Y34,AA34,AA37,Y37,W37,U37,S37,Q37,O37,M37" _
), Range( _
"M40,O40,Q40,S40,U40,W40,Y40,AA40,AA43,Y43,W43,U43,S43,Q43,O43,M43,M45,O46,Q46,S46,U46,W46,Y46,AA46,AA49,Y49,W49,U49,S49,Q49,O49,M49" _
), Range( _
"M52,O52,Q52,S52,U52,W52,Y52,AA52,AA55,Y55,W55,U55,S55,Q55,O55,M55,M58,O58,Q58,S58,U58,W58,Y58,AA58,AA61,Y61,W61,U61,S61,Q61,O61,M61" _
), Range( _
"B3,B6,B9,B12,B15,B18,B21,B24,B27,B30,B33,B36,B39,B42,B45,B48,B50,B51,B54,B57,B60,M4,O4,Q4,S4,U4,W4,Y4,AA4,AA7,Y7,W7" _
), Range( _
"U7,S7,Q7,O7,M7,M10,O10,Q10,S10,U10,W10,Y10,AA10,AA13,Y13,W13,U13,S13,Q13,O13,M13" _
)).Select
Range("B60").Activate
Selection.ClearContents
Range("AH8:AH11").Select
Sheets("Palette Produit fini heure").Protect "Terre"
End Sub
-
-
Bonjour M-12
J'étais de nuit hier soir et j'en ai profité pour installer le fichier et bizarrement le fichier fonctionné très bien et cela sans que je sois obligé de mettre ces 2 (fameuses) lignes dans la macro.
Donc problème résolu, merci à vous et bon dimanche.
