Lancer une macro dans fichier protégé [Résolu]

Signaler
Messages postés
160
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
7 juin 2020
-
Messages postés
160
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
7 juin 2020
-
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

3 réponses

Messages postés
840
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
9 septembre 2020
173
Bonjour,
Remplace ta macro par celle-ci
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
Messages postés
160
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
7 juin 2020

BonjourM-12,
Cela marche, le souci que j'ai maintenant est quand j'appuie sur le bouton de la macro, il ne se passe rien. je suis obligé a chaque fois d'assigner la macro au bouton et de dire macro dans 'ce classeur.
Messages postés
840
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
9 septembre 2020
173 >
Messages postés
160
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
7 juin 2020

Re,
Si tu assignes le nom de la macro à ton bouton et que tu enregistres le classeur, cela ne devrait plus se produire
sinon copie/colle les deux lignes ajouter (la 1ère et la dernière)
Messages postés
160
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
7 juin 2020
>
Messages postés
840
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
9 septembre 2020

Re,
la sauvegarde ne change rien.
Par contre je ne comprends pas ce que tu entends avec la deuxième options
"copie/colle les deux lignes ajouter (la 1ère et la dernière) "
Messages postés
840
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
9 septembre 2020
173
Re,
Ouvre tes yeux et regarde la macro de ton fichier ne PJ et celle que j'ai posté
Messages postés
160
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
7 juin 2020

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
Messages postés
840
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
9 septembre 2020
173 >
Messages postés
160
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
7 juin 2020

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
Messages postés
160
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
7 juin 2020

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.