Soucis exécution macro et Workbook_Close

Version imprimable

19/12/2017, 15h30
ecell

Soucis exécution macro et Workbook_Close

Bonjour à tous,

J'ai un fichier Excel (que je ne peux malheureusement pas communiquer) qui requiert que certaines pages soient cachées, et que les feuilles et classeurs soient protégés en permanence.

J'ai tout de même un bouton de "Settings" qui me rend ces feuilles visibles et enleve les protections.

Pour des raisons plus qu'évidentes, il faut que ces protections soient remises en place une fois que je ferme le fichier. J'ai mis en place la célèbre fonction Workbook_Beforeclose et associé toutes mes macros.

Petit soucis, cela est considéré par Excel comme une modification et la fenêtre "Voulez vous enregistrer les modifications..." apparaît alors et je souhaiterai qu'elle continue d'apparaître, mon but étant que si les utilisateurs font une bêtise, il leur soit possible de revenir en arrière via "ne pas enregistrer".

Mon soucis intervient à ce niveau, si on clique sur annuler, les macros se sont lancées.

M'est donc venu à l'esprit d'utiliser le Workbook_Deactivate. Si j'annule, le classeur se ferme tout de même. Pas bon.

Puis de mélanger le Workbook_BeforeClose et le Workbook_WindowDeactivate,

Au moment où la fenêtre est fermée, les macros se lancent. La commande "Annuler" est bien prise en compte...Cependant, aucun moyen de dissocier les actions pour "Enregistrer" ou "Ne pas enregistrer"...

Si l'un d'entre vous a une meilleure idée, je suis preneur !

Bonnes fêtes !

E.
19/12/2017, 15h39
unparia

Bonjour
1) je ne vois pas ce qu'a de "fameux" une procédure évènementielle classique !
2) en existe une autre, non ? Par exemple Workbook_BeforeSave dont le nom est pourtant assez "parlant"

Tu as deux choses à gérer ? l'une dans un évènement (remise des protections, que l'on sauvegarde ou non) et l'autre dans l'autre évènement (sauvegarder ou non)

Où est la difficulté ? :cfou:
19/12/2017, 16h01
ecell

Bonjour et merci pour votre réponse,

Je ne suis pas sûr de bien comprendre ce que vous me dites.

Je peux faire tout et n'importe quoi avec tel ou tel évènement mais comprenez bien que si à chaque fois qu'un utilisateur enregistre le fichier les protections se remettent en place.. cela devient fastidieux.

Il n'est pas rare que l'on enregistre en cours de route. Toute procédure avant de fermer le classeur ne correspond pas à mon besoin.

J'ai besoin qu'au moment ou on ferme le classeur, s'il est enregistré les macros se lancent ré-enregistrent et ferment le classeur (cela n'a rien de compliqué et je sais comment le gérer).

Mon soucis intervient lorsque le fichier n'a pas été enregistré "à la main" et que la fermeture intervient. Je veux alors laisser le choix aux utilisateur d'enregistrer ou non mais je veux que dans tous les cas les macros s'executent (A LA FERMETURE SEULEMENT).

J'aimerai, si possible, pouvoir gérer les réponses apportées à la fenêtre "voulez vous enregistrer les modifications", mais après une petite matinée de recherche, je n'ai pas trouvé de moyen.
19/12/2017, 18h28
unparia

Citation:

si à chaque fois qu'un utilisateur enregistre le fichier les protections se remettent en place

Ah ...
et où ai-je dit qu'il fallait gérer les protections dans l'évènement Workbook_BeforeSave ? :cfou:
Relis donc attentivement ce que j'ai écrit, s'il te plait

PS : au fait un as un seul "petit souci" ou plusieurs "petits soucis" ?
19/12/2017, 20h43
ecell

Bonsoir,

J'ai en effet plusieurs petits soucis :) que j'essaie d'expliquer à travers un seul et même.

J'ai beau chercher en vous relisant, je ne capte toujours pas.

Citation:

l'une dans un évènement (remise des protections, que l'on sauvegarde ou non) et l'autre dans l'autre évènement (sauvegarder ou non)

Le premier point n'est pas ce que je cherche à réaliser. C'est réellement au moment où l'utilisateur sort du fichier que j'ai besoin de remettre les protections. En effet, si le mdp n'est pas divulgué, il n'aura jamais accès à quelconque modification. Cependant si le mdp est divulgué à certains, et le fichier étant unique sur le réseau, j'ai besoin, pour palier à tout oubli, de remettre des protections à la fermeture du fichier (d'où l'évènement BeforeClose). Et là mes protections se relancent à peine j'appuie sur la croix, avant la fenêtre "Voulez vous enregistrer ...". En soit ce n'est pas dommageable pour l'utilisation, il suffit à l'utilisateur de re-saisir le mdp et de continuer à travailler (5s).

Pour ma culture perso (j'ai appris VBA seul et donc désolé si certaines bases qui vous paraissent essentielles ne sont présentes chez moi) je cherche cependant à savoir s'il existe une solution.

Merci pour votre intérêt,

Cordialement,
E.
19/12/2017, 20h52
unparia

C'est pourtant clair :

Citation:

C'est réellement au moment où l'utilisateur sort du fichier que j'ai besoin de remettre les protections.

Aspect et seul aspect à gérer dans la seule procédure évènementielle Workbook_BeforeClose
Et pour ce qui est de la sauvegarde ou non des données : aspect et seul aspect à gérer dans la procédure évènementielle Workbook_BeforeSave
Il y a donc DEUX gestions, chacune dans UNE procédure évènementielle.
Je ne vois vraiment pas ce qui pose problème, là ...
19/12/2017, 21h03
ecell

Citation:

Envoyé par unparia

Je ne vois vraiment pas ce qui pose problème, là ...

Ok je vois donc que mon énoncé n'est pas clair, désolé :)

Je souhaite que la fenêtre "Voulez-vous enregistrer etc...." apparaisse pour garder l'option "Annuler" de cette fenêtre. Et que si cette option est choisie (et donc que le classeur ne se ferme pas, ni ne s'enregistre", qu'il ne se passe rien. Cependant, l'évènement Workbook_Beforeclose s'effectue avant l'apparition de la fenêtre!

Comprenez-vous ce que je cherche à réaliser ? Si cela correspond à votre réponse, je vais relire jusqu'à ce que je comprenne car pour le moment ce ne m'est pas évident...

Merci,

On discute ici un peu trop et on ne traite apparemment rien.
Regarde ce que fait ce test :
Code:

1 2 3 4 5 6 7 8 Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "tu es dans beforeclose" ' '''''' mets ici tes instructions de re-protection End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "tu es dans beforesave" End Sub
Mets donc tes instructions de gestion de la protection dans le 1er évènement- (beforeclose)
Si tu réponds par annuler dans le second évènement (BeforeSave), tu annules ipso-facto le 1er également ---> pas de sortie
Si tu n'annules pas la sauvegarde (que tu répondes oui ou non), le classeur sera fermé (avec ses protections remises)

Et si tu veux que la protection ne soit pas remise (alors qu'elle avait été enlevée par un utilisateur autorisé) si la sauvegarde est annulée, c'est également chose possible via l'utilisation d'une variable booléenne générale. Mais le jeu en vaut-il vraiment la chandelle ? Alors qu'il suffit que cet utilisateur, s'étant ravisé, enlève à nouveau cette protection. Au bout de deux ou trois "punitions" de l'espèce, il se montrera moins impulsif, crois-moi ... :D

19/12/2017, 21h39
clementmarcotte

Citation:

Envoyé par ecell

Bonjour à tous,

J'ai un fichier Excel (que je ne peux malheureusement pas communiquer)

Youppi !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
20/12/2017, 06h20
unparia
Maintenant : tu as par ailleurs toujours la possibilité de :
- déclarer une variable booléenne toto en public dans un module standard
- d'ajouter ton propre bouton de sortie et d'y mettre toutes les instructions de ton choix dans son évènement click, avec toutes les boîtes de dialogues ou msgboxes de ton choix, de sorte à :
aboutir à donner ou non à toto la valeur true
- de mettre ceci dans before close :
Code:

1 2 3 Private Sub Workbook_BeforeClose(Cancel As Boolean) if not toto then cancel = true End Sub
Ce qui forcera à sortir en utilisant uniquement le bouton ad hoc que tu as créé

Tu peux même aller plus loin, en donnant à toto la valeur true à l'ouverture du classeur et en la passant à false lorsque protection enlevée (et remise à true lorsque protection remise), etc ...
Pour résumer : "jouer" comme tu l'entends.