envoi d'une palge de cellule protégée par mail

[Harkmann]

Bonjour à tous,

j'ai un petit problème, j'ai crée un code me permettant d'envoyer une plage de cellule par mail à l'aide d'un bouton.
Mon problème est outlook qui me demande d'oter la protection de ma feuille pour l'envoyer.
si je le fais, mon mail peut partir. Mais je ne veut absolument pas enlever cette protection.
Comment faire????

Merçi de m'aider

 

[Harkmann]

Re : envoi d'une palge de cellule protégée par mail

Voiçi mon code

Private Sub CommandButton1_Click()
ActiveSheet.Range("A1:E12").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Bonjour"
.Item.To = "fkd@djfhdj.fr"
.Item.Subject = "test"
.Item.Send
End With
end sub

 

[DoubleZero]

Re : envoi d'une palge de cellule protégée par mail

Bonjour à toutes et à tous,

Bienvenue sur XLD, Harkmann 🙂 !

Mon problème est outlook qui me demande d'oter la protection de ma feuille pour l'envoyer.
si je le fais, mon mail peut partir. Mais je ne veut absolument pas enlever cette protection.

Suivant les motifs de la protection, trois possibilités me viennent à l'esprit pour contourner le problème rencontré :

- la première consisterait à copier-coller les valeurs de ladite plage de cellules dans un nouvel onglet, non protégé ;

- la seconde serait d'adresser simplement une "capture" des données ;

- la troisième, enfin, pourrait faire appel à une pièce jointe convertie au format .PDF.

A bientôt 🙂.

 

[Staple1600]

Re : envoi d'une palge de cellule protégée par mail

Bonjour le fil, Bonjour 00 😉

J'ajouterai une quatrième option pour Harkmann
Cliquer sur la loupe en haut à droite de l'écran et aller voir dans les archives du forum, les nombreuses discussions relatives à l'envoi de mail depuis Excel, consulter plusieurs d'entre elles afin de remarquer que beaucoup de conseilleront d'aller voir ce que propose un certain Ron de Bruin 😉

PS: La bienvenue également à toi Harkmann sur XLD

 

[Harkmann]

Re : envoi d'une palge de cellule protégée par mail

merçi je vais aller voir

 

[Harkmann]

Re : envoi d'une palge de cellule protégée par mail

re bonjour,

j'ai beau chercher je ne trouve toujours rien me permettant d'envoyer un tableau protégé.

HELP!!!!!

 

[Staple1600]

Re : envoi d'une palge de cellule protégée par mail

Bonjour le fil, le forum

Harkmann
Tu peux exporter ton tableau protégé:
a) en pdf et joindre ce PDF en PJ dans ton mail
b) en image et coller cette image dans le corps de ton mail
c) faire une copie/valeurs seules de ton tableau dans un fichier excel temporaire
et joindre ce fichier temporaire en pièce jointe dans ton mail

Toutes ces options ont déjà été abordées sur le forum.

PS: Je rajoute ceci par gourmandise (la mienne s'entend)

 

[Harkmann]

Re : envoi d'une palge de cellule protégée par mail

Avec vos suggestions j'y suis enfin arrivé.
merçi beaucoup

 

[Staple1600]

Re : envoi d'une palge de cellule protégée par mail

Bonsoir

Harkmann
Dans ce cas, ce serait sympa que tu postes ici ta solution.
Cela pourra intéresser d'autres lecteurs de ce fil, ne crois-tu pas ?

 

[Harkmann]

Re : envoi d'une palge de cellule protégée par mail

bonjour à tous,

Voiçi mon code:

Private Sub CommandButton1_Click()

Feuil3.unprotect Password:="1234abcd"
Dim Plage As Range
Set Plage = Feuil3.Range("d1:g12")
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Temp\copy.gif", "GIF"
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Nouveau mail"
.Item.To = "fgdjgj@fhjgfj.fr"
.Item.Subject = "Demande"
.Item.Send
End With
End With
Feuil3.protect Password:="1234abcd"

end sub

Ca fonctionne très bien.