Lancer une macro dans fichier protégé

Résolu
christophedir Messages postés 200 Date d'inscription   Statut Membre Dernière intervention   -  
christophedir Messages postés 200 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
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
0
christophedir Messages postés 200 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285 > christophedir Messages postés 200 Date d'inscription   Statut Membre Dernière intervention  
 
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)
0
christophedir Messages postés 200 Date d'inscription   Statut Membre Dernière intervention   > M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention  
 
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) "
0
Réponse 2 / 3
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
Re,
Ouvre tes yeux et regarde la macro de ton fichier ne PJ et celle que j'ai posté
0
christophedir Messages postés 200 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285 > christophedir Messages postés 200 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 3 / 3
christophedir Messages postés 200 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0