» Poradna » Programy

Excel tlačítko pro odeslání Emailu

 |   |  Microsoft Windows 7 Chrome 43.0.2357.130

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

nikdo neví?

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

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



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


Aktuální číslo časopisu Computer

Jak rychlé je nabíjení bez drátů?

Test 11 sluchátek pro hráče

Aplikace, které vám zachrání dovolenou

Kompletní přehled datových tarifů