Incohérence à outrepasser Résolu/Fermé

Question

Bonjour,

Je suis totalement bloqué...

Je veux insérer une Macro dans un fichier Excel pour empêcher les utilisateurs (dans le cadre d'une formation) de sauver le fichier et le prendre chez eux.

Jusque là pas trop de soucis. Avec le code suivant dans "This Workbook":



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    MsgBox "You can't save this workbook!"
    Cancel = True

End Sub



Sauf qu'évidemment le premier venu qui a une connaissance ne fut-ce que médiocre en VBA sait très bien comment aller chercher ce code et l'effacer.

Alors je veux empêcher les utilisateurs d'aller voir / modifier les codes VBA.

Là aussi pas très difficile... Click droit sur VBAProject / properties / protection etc...


Mais c'est là que ça n'a aucun sens, parce que pour activer la protection il faut pouvoir sauver le fichier, mais le but de ma Macro est que le fichier ne puisse PAS être sauvé!!!!!!!!

Et ce n'est pas non plus comme si je pouvais activer la protection (sans la Macro), réouvrir le fichier, bypasser la Protection pour insérer la Macro car de toute manière je dois pouvoir sauver le fichier pour réactiver la protection.

Et ce n'est pas non plus comme si je pouvais utiliser un xlsx Macro Disabled. Ca ne fonctionne pas...

Est-ce que quelqu'un a une idée? Comment je peux faire pour bloquer la sauvegarde tout en empêchant les utilisateurs d'accéder au code VBA?


Merci d'avance.

skk201 · Answer

Bonjour

Je crois que j'ai vu une astuce sur devloppez.com si je la retrouve je vous la transmets

skk201 · Answer

C'est bon j'ai trouvé !

Il faut mettre la macro en pause et sauvegarder. (le double trait vertical à coté du bouton "play" vert pour exectuer la macro)

D'ailleur je vous conseil d'ajouter cette ligne de code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ThisWorkbook.Saved = True 'Informe Excel que le fichier a déjà été enregistré (cela évite d'avoir une demande d'enregistrement à la fermeture)
End Sub 

Et attention cela empêche de sauvegarder uniquement si l'élève à activer les macro !

Si vous avez plus de question n'hésitez pas à les poser je vous aiderai au mieux

Bonne journée

dinin71 · Answer

Bonjour Skk,

Un grand merci, mais je n'ai pas bien compris... Cette macro ne se tourne pas.

Une fois que le code est écrit dans VBAProject / Msft Excel Objects / ThisWorkbook il n'est pas nécessaire de la tourner. Elle n'est pas dans un module (On ne voit vraiment rien mais bon...)

Pourrais-je vous demander un peu plus de détails s'il vous plait? Peut-être avec des images? Désolé de vous monopoliser votre temps...

Merci pour la ligne en plus et merci de me rappeler qu'il faut activer manuellement les macros! J'avais en effet oublié :)

dinin71 · Answer

Excellent! Ca fonctionne parfaitement sur un fichier blank.

J'essayerai à la maison avec mon fichier de travail!

Un grand merci à toi!

Incohérence à outrepasser

4 réponses

Discussions similaires