Ajout d'appel de macros dans toutes les macros.. par macro..

Bonjour à tous,

J'ai un fichier monstrueux, avec une quantité de macros impressionnante, pas optimisé du tout (et c'est rien de le dire), mais tout tourne pour l'instant et je garde la tentative d'optimisation pour plus tard (pour une V2).

Y a-t'il un moyen via macro, de rajouter pour chacune des macros présentes dans le classeur (plusieurs modules), de un appel de macro (toujours la même) au début de chacune, et un autre appel d'une autre macro (toujours la même aussi) à la fin de chacune ?

A la lecture de ce très intéressant dossier : http://silkyroad.developpez.com/VBA/VisualBasicEditor/, il semblerait que oui, mais je n'y arrive pas...

L'idée pour l'exemple serait de rajouter Call MacroDébut au début de chaque macro, et Call MacroFin à la fin....

Merci par avance !!

Merci par avance !

Cordialement,

Bonjour,

Montre nous une partie de ton code ... la déclaration de tes macros (lignes Sub MaMacro ....) , et les lignes d'appel de cette macro.

Cdt.

Bonjour bbil, et merci de ton intérêt...
Pour détailler le pourquoi de ma demande :
J'ai un fichier avec toutes les feuilles (sauf une) veryhidden
La plupart des macros réaffichent, font des calculs, remasquent certaines feuilles.
Comme le classeur est "protégé" (il ne faut pas qu'un utilisateur renomme, rajoute, déplace des feuilles) je souhaite déprotéger le classeur à chaque début de macro (pour pouvoir afficher les feuilles spécifiées dans le code) et le reprotéger à chaque fin d'éxécution. L'idée étant donc que le classeur soit protégé tant que l'utilisateur "a la main", et qu'il soit déprotégé pendant chaque exécution de macro (pour qu'elles puissent fonctionner sans erreur tout simplement)
J'ai donc une macro rajouter 2 macros :

Code:

---

1 2 3 4 5 6 7

Sub MacroDébut(Optional Factice As String) ActiveWorkbook.Protect "toto" End Sub   Sub MacroFin(Optional Factice As String) ActiveWorkbook.Unprotect "toto" End Sub

---

J'ai par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Vueall(Optional Factice As String) Application.ScreenUpdating = False For i = 1 To 24 Sheets(i).Visible = 1 Next i Sheets(1).Select Application.ScreenUpdating = True End Sub   Sub Maskall(Optional Factice As String) Application.ScreenUpdating = False Application.EnableEvents = False Sheets(1).Visible = 1 Sheets(1).Select   For i = 2 To 24 Sheets(i).Visible = 2 Next i Application.ScreenUpdating = True Application.EnableEvents = True End Sub

---

mais aussi plein d'autres macros, sur plusieurs modules.

L'idée étant d'insérer en tout début de chacune de l'ensemble de toutes les macros de tous les modules

Code:

---

MacroDébut

---

(qui déprotège donc), et

Code:

---

MacroFin

---

(qui reprotège) à la fin de chacunes des mêmes.... Bien sûr, une fois cela fait, il me restera à enlever "à la main" les appels de macros qui se seront placés automatiquement dans les macros de protection / déprotection....

Il est vrai que certaines macros s’appellent entre elles, donc il y aura des reprotections / redéprotections "inutiles", et donc un code pas très optimisé, mais l'optimisation n'est pas le but ici (surtout que de ce côté, comme je disais plus haut, c'est vraiment pas joli joli, mais ce n'est pas le propos).

J'espère avoir été plus clair et avoir donné tous les éléments utiles...

Merci d'avance !!
Cordialement,

et donc l'appel ...?

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Vueall(Optional Factice As String) MacroDébut Application.ScreenUpdating = False For i = 1 To 24 Sheets(i).Visible = 1 Next i   Application.ScreenUpdating = True MacroFin End Sub

---

tout simplement...

essai tout de même d'éviter les caractères accentués dans les noms de fonctions ou variables ( cela me fait mal aux yeux...)

et si la macro est contenu dans ton classeur utilise préfère utiliser l'objet ThisWorkbook plutôt qu'ActiveWorkbook .... pour ActiveWorkbook son utilisation est souvent source de problèmes ...(cas ou plusieurs classeurs ouverts, "l'opérateur" peu changer de classeur actif de manière inattendue )

Je me suis visiblement mal fait comprendre...

Je sais qu'il faut placer

Code:

---

MacroDebut

---

la ligne suivant chaque

Code:

---

Sub

---

, et

Code:

---

MacroFin

---

la ligne avant chaque

Code:

---

End Sub

---

...
Le propos étant justement de pouvoir les ajouter automatiquement à ces mêmes endroits pour chacune de mes macros de chacun de mes modules !
Le lien http://silkyroad.developpez.com/VBA/VisualBasicEditor/
parle bien de la possibilité de manipuler du code grâce à du code, mais je n'ai pas réussi, malgré ce dossier bien documenté !

En espérant avoir été plus clair cette fois.

Merci encore de ton intérêt bbil en tous cas.
Cordialement,

Bonjour,

Je te propose de contourner le problème en utilisant la propriété UserInterfaceOnly de la méthode protect.

UserInterfaceOnly protege la feuille de toutes les actions de l'utilisateur, mais autorise les modifications via macros. De plus, lorsque le fichier est enregistré et fermé la protection redevient totale.

Aussi, je te propose ce bout de code, soit à placer dans le workbook_open(), soit à lancer en premier au cours de ta série de macro.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ToutProtegerSaufMacro()   For i = 1 To Sheets.Count With Sheets(i) .Unprotect Password:="toto" .Protect Password:="toto", UserInterfaceOnly:=True End With Next   End Sub

---