PB Macro Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Saphir
Membre habitué
Membre habitué
Messages : 63
Inscrit le : 20 décembre 2016
Version d'Excel : 2016 FR
Contact :

Message par Saphir » 3 septembre 2019, 09:51

Bonjour,

J'ai un classeur avec une feuille par mois. Sur chaque feuille j'ai trois macros.
Matrice Paye 2020.xlsm
(593.48 Kio) Téléchargé 5 fois


La première, "protection", verrouille ce que les personnes utilisant le fichier n'ont pas à toucher.

La deuxième, "déprotection", me permet de libérer complètement la feuille afin que je travaille dessus (MDP : 11)

La troisième, "protection finale", verrouille complètement la feuille.

Lorsque je travaille sur une feuille, je clique sur "déprotection", je mets le MDP (11) et je travaille donc sur ma feuille. LE problème se situe dans le fait que les feuilles précédentes, qui étaient en "protection finale" se retrouve déverrouillées en mode "protection" ce que je ne souhaite absolument pas. Du coup, je suis obligé de cliquer sur "protection finale" de chacune des feuilles précédentes ce qui est une perte de temps considérable.

Pourriez-vous svp, jeter un oeil sur le fichier et me filer un coup de pouce ?

Merci d'avance pour votre aide !

Jef
Avatar du membre
Gaz0line
Membre dévoué
Membre dévoué
Messages : 566
Appréciations reçues : 3
Inscrit le : 28 juillet 2012
Version d'Excel : 2010 FR, 2013 FR
Téléchargements : Mes applications

Message par Gaz0line » 3 septembre 2019, 11:04

Bonjour Jef,

le comportement de ton classeur est tout à fait normal, puisque ta macro dit "dévérouille chaque feuille de ton classeur" :
For Each sh In ActiveWorkbook.Sheets
[...]
Next
Il faut que la macro réalise la déprotection uniquement pour la feuille sur laquelle tu es.

Le code à appliquer est donc
with activesheet
[...]
End With
pour que ton code ne dévérrouille qu'une seule feuille à la fois.
Tu trouveras ton fichier modifié en pièce jointe, vois si ça correspond à ton besoin ;)
Gaz0line_Matrice Paye 2020.xlsm
(606.15 Kio) Téléchargé 2 fois
Modifié en dernier par Gaz0line le 3 septembre 2019, 14:46, modifié 1 fois.
1 membre du forum aime ce message.
“La politesse coûte peu et achète tout.” - Montaigne
Pense à cliquer sur le bouton résolu si ton problème est résolu !
Avatar du membre
Saphir
Membre habitué
Membre habitué
Messages : 63
Inscrit le : 20 décembre 2016
Version d'Excel : 2016 FR
Contact :

Message par Saphir » 3 septembre 2019, 11:07

Salut et merci à toi Gaz0line !

Je vais jeter un oeil ! En tout cas merci beaucoup pour ton aide !

Jef
Avatar du membre
Gaz0line
Membre dévoué
Membre dévoué
Messages : 566
Appréciations reçues : 3
Inscrit le : 28 juillet 2012
Version d'Excel : 2010 FR, 2013 FR
Téléchargements : Mes applications

Message par Gaz0line » 3 septembre 2019, 11:14

Je t'en prie ;)
“La politesse coûte peu et achète tout.” - Montaigne
Pense à cliquer sur le bouton résolu si ton problème est résolu !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message