Masquer Protéger pour envoi

[samixite]

Bonjour à tous,

J'ai un classeur contenant 3 feuilles. J'aimerais trouver une macro qui automatise l'envoi du classeur par mail tout en ayant au préalable masquer la feuille 3 et protéger le classeur en écriture avec un mot de passe prédeterminé. C'est à dire que le mot de passe ne soit pas demandé
J'ai tenté en enregistrement de macro mais ça n'a pas été concluant

Merci d'avance pour votre aide 😉

 

[XanorK]

Bonsoir Samixite

Voici ce que je te propose.

Cela devrait fonctionner avec le MS outlook de la suite office (qui n'est pas installer su mon poste donc pas tester)

Ne pas confondre Outlook et outlook express

Derniere chose le MDP est ' test '. [file name=Classeur2_20060530005425.zip size=9653]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060530005425.zip[/file]

Message édité par: XanorK, à: 30/05/2006 00:54

 

[coco_lapin]

Bonjour le forum.

Xanork, tu indiques qu'il ne faut pas confondre Outlook et outlook express.

Si je comprends outlook fait parti de la suite MS office.
Moi j'ai outlook express et j'avais essayé d'utiliser des macros mais sans succès. Ces codes devaient être dédiés pour outlook MS (c'est ce que je comprends maintenant, dis moi si c'est vrai).

A ta connaissance existe-t-il des codes qui fonctionnent pour outlook express?

 

[samixite]

Salut XanorK,

Tout d'abord merci pour ton aide
Je n'ai pas du être très clair dans ma demande
Et en fin de compte je voudrais faire différemment
Je voudrais que lors de l'envoi ce soit juste la feuill 1 qui parte ( plus de protection nécessaire )
Par contre je ne souhaite pas spécifier le logiciel de messagerie j'utilise :
Application.Dialogs(xlDialogSendMail).Show
qui me permet d'utiliser mon logiciel de messagerie par défaut ( en l'occurence Lotus 🙁 )

Encore merci pour ton aide

 

[XanorK]

samixite écrit:

... j'utilise :
Application.Dialogs(xlDialogSendMail).Show
qui me permet d'utiliser mon logiciel de messagerie par défaut ( en l'occurence Lotus 🙁 )

Voila qui repond a Coco_Lapin


sinon pourquoi ne pas supprimer les feuilles inutiles :

    Application.DisplayAlerts = False
    Sheets('Feuil2').Delete
    Sheets('Feuil3').Delete
    Application.DisplayAlerts = True

à la place de

    Sheets('Feuil3').Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets('Feuil1').Select

??

Message édité par: XanorK, à: 30/05/2006 18:03