Lancer une macro dans fichier protégé

Résolu/Fermé

christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024 - 6 juin 2020 à 17:54
christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024 - 7 juin 2020 à 15:28

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:

Lancer une macro dans fichier protégé
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Ouvrir fichier .bin - Guide

3 réponses

Réponse 1 / 3

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
6 juin 2020 à 18:00

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

christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024
6 juin 2020 à 18:24

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.

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299 > christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024
6 juin 2020 à 18:28

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)

christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024 > M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023
6 juin 2020 à 19:06

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) "

Réponse 2 / 3

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
6 juin 2020 à 20:33

Re,
Ouvre tes yeux et regarde la macro de ton fichier ne PJ et celle que j'ai posté

christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024
6 juin 2020 à 21:18

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

Réponse 3 / 3

christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024
7 juin 2020 à 15:28

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.

Discussions similaires

comment donner les droits sur fichier partage

comment ouvrir un fichier CBR

Question PIX

Discussions similaires

Newsletters