» Poradna » Programy

Excel tlačítko pro odeslání Emailu

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 1/1
 |   |  Microsoft Windows 7 Chrome 43.0.2357.130  |  [88.103.236.---]

Dobrý den, prosím Vás, dalo by se přes VB naprogramovat tlačítko, po kliknutí aby mi to odeslalo email s určitým textem ?Mám jedinný problém když mám zamknutý list ale buňky A4 a A5 odemčené tak mi to pořád píše, že chce odeslat ale brání mu v tom ten zamknutý list přitom sem zúžil rozsah jen na tyhle 2 bunky z aktivního listu které zůstávají odemčené. nevím prostě jak obejít to heslo na listu, to tam prostě být musí.Mám tohle: Sub Send_Range() ' Select the range of cells on the active worksheet. ActiveSheet.Range("A4:A5").Select ' Show the envelope on the ActiveWorkbook. ActiveWorkbook.EnvelopeVisible = True ' Set the optional introduction field thats adds ' some header text to the email body. It also sets ' the To and Subject lines. Finally the message ' is sent. With ActiveSheet.MailEnvelope .Introduction = "Přijď." .Item.To = "email@email.cz" .Item.Subject = "Přijď :)" .Item.Send End WithEnd SubNeví někdo jak to obejít aby mi to odeslalo i přes zamknutý list? Děkuji

Odpovědi na otázku

 |   |  Microsoft Windows 10 Chrome 42.0.2311.135  |  [193.86.90.---]

nikdo neví?

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Item, Lines, Field



Určitě si přečtěte