Discussion :

[elparagouayo]

Bonjour à tous.

Me voilà avec un petit problème, en ce lundi matin ensoleillé.
J'aimerais désactiver la fonction "enregistrer sous..." dans Excel 2007. Tout ceci par raison de "sécurité" lors d'examen sur PC, les étudiants ne sont pas autorisés à avoir une copie de l'examen sur leur machine une fois celui-ci terminé, allez savoir pourquoi...

Vu que ça fait un bail que j'ai pu fait de VB (et que même à l'époque je venais demander de l'aide ici :p), j'ai demandé à mon ami Google, qui m'a permis de trouver un bout de solution, avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
    Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False
End Sub

Malheureusement, ce bout de code n'est apparemment plus d'actualité pour la version 2007 de la suite bureautique de notre cher Billou.

Si quelqu'un a une idée, je suis preneur.

Merci d'avance.

[fring]

Bonjour,

Plutôt que d'essayer de rendre inactif le bouton, tu peux essayer en plaçant ce petit bout de code dans L'évènement SaveAs de ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If SaveAsUI = True Then Cancel = True
End Sub

[ouskel'n'or]

Bonjour elparagouayo, fring,
Pense à protéger tes macros si tu fais ça. Le moindre bricoleur pourrait très vite supprimer ces trois lignes mais n'aura pas le temps de chercher l'outil pour les déprotéger sur le web

[elparagouayo]

Merci beaucoup à vous 2, grâce au code de fring c'est tout bon.

[SilkyRoad]

bonjour

En complément des réponses précédentes, dans Excel2007 tu peux désormais désactiver les commandes prédéfinies en paramètrant le fichier xml de personnalisation:

III-F-11. command



bonne journée
michel

[elparagouayo]

Re-Hello tout le monde.

Bon Excel ça marche nickel !!
Mais il faudrait que je puisse adapter ce bout de code à Word et Powerpoint également.
Je suis allé faire un tour du côté du forum Word, et il y a déjà plusieurs réponses à ce sujet, mais toutes plus compliquées les unes que les autres.

N'y aurait-il pas une manière "simple" d'adapter ce code à Word et PowerPoint ??

Merci d'avance.