Interdire l'envoi de mail par EXCEL

[Pierre5081]

Bonjour,

Excel contient une fonction de menu et des boutons de commandes 'Envoyer vers' qui crée un mail du workbook actif.

Par soucis de sécurité, je voudrais interdire cette fonction (permettre uniquement à l'utilisateur de consulter les données à l'écran et ne pas se les envoyer par mail)

Dans le Workbook je peux supprimer la commande 'Envoyer vers'.

Private Sub Workbook_Activate()
For i = 1 To 30
If Application.CommandBars("File").Controls(i).Caption = "Envo&yer vers" Then
Application.CommandBars("File").Controls(i).Delete
End If
Next
End Sub


Mais cela m'empêche pas un utilisateur de la remettre en personnalisant la barre menu ou les barres outils.

Je ne trouve rien sur le net.

Quelqu'un aurait-il la solution miracle ?

Merci

 

[kjin]

Re : Interdire l'envoi de mail par EXCEL

Bonsoir,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("File").FindControl(ID:=30095).Enabled = True

End Sub

Private Sub Workbook_Open()
Application.CommandBars("File").FindControl(ID:=30095).Enabled = False

End Sub

Mais cette solution n'empêchera en rien l'envoi si les macros sont désactivées
A+
kjin

 

[Pierre5081]

Re : Interdire l'envoi de mail par EXCEL

Bonjour,

"Cette solution n'empêchera en rien l'envoi si les macros sont désactivées".

Sans doute, sauf que 'j'oblige' l'utilisateur à activer ses macros afin de charger des bases de données, les intégrer dans un TCD, lancer une boite de dialogue de requètes ...

J'ai réussi a empêcher de faire une copie du fichier, d'aller voir des onglets cachés, de faire un copier-coller sur une autre feuille, d'imprimer, mais je n'arrive pas à supprimer complètement cette focntion Envoi de mail

Docn, si soultion il y a, elle sera très appréciée

A+