Pytanie : Using Moduł w VBA wielostrzałowy kod w prześcieradło

W mój workbook I próbować otwierać procedura i ludzie problem mieć z thte workbooks.

On kod strona I chcieć sprawnie guzik the dołączać kod.

I mieć the guzik, I mieć the kod i I móc ono praca ten kod na każdy prześcieradło z the indywidualny guzik ale ono wydawać się głupi, dlaczego wyprostowywać the kod na każdy prześcieradło gdy ty móc ono każdy i mieć each ciąć na arkusze połączenie ono?

Thanks dla the pomoc,

Haydan


 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

Public Okręt podwodny SheetUnlocker ()

Application.DisplayAlerts = Fałszywy

'=================
'Otwierać the Prześcieradło
'=================

ActiveSheet.Unprotect ("BlueberryPies")

'================================
'Tworzyć the email dla the otwierać
'================================

'Od Ron Niedźwiadek
'Pracować w 2000-2007
'Ten przykład wysyłać the ostatni oszczędzony wersja the Activeworkbook
    Ciemnawy OutApp Przedmiot
    Ciemnawy OutMail Przedmiot
    Ciemnawy PDFUpdate Sznurek
    Ćmić strbody Sznurek
    Ćmić SigString Sznurek
    Ćmić Podpis Sznurek
    
    Ustawiać OutApp = CreateObject ("Outlook.Application")
    OutApp.Session.Logon
    Ustawiać OutMail = OutApp.CreateItem ((0))

    Na Błąd Życiorys Następnie
    Z OutMail
        . = "[email protected]"
        .CC = ""
        .BCC = ""
        . Temat = "Otwierać Wydarzenie -" & ActiveSheet.Name
        .HTMLBody = "Zadawalać dobrze krótki opis dlaczego the otwierać potrzebować"
        'Ty móc inny kartoteka także jak kartoteka
        '. Attachments.Add (" C:\test.txt ")
        . Pokaz 'lub use. Wysyłać lub Wystawiać
    Kończyć Z
    
    Na Błąd Rozpoczynający (0)
    Ustalony OutMail = Nic
    Ustalony OutApp = Nic

'=======================
'Końcówka the email
'=======================

Application.DisplayAlerts = Prawdziwy

Końcówka Okręt podwodny

Odpowiedź : Using Moduł w VBA wielostrzałowy kod w prześcieradło

2000/3….
Obejście być the kod Moduł, i mieć the nakazowy guzik wezwanie ono.

Intymny Okręt podwodny CommandButton1_Click ()
  SheetUnlocker 'żyć żyć w moduł
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us