Pytanie : Kod dla Programmatically VBA od Odbity Workbook Stosownie

I używać the odbitkowy rozkaz prześcieradło od Workbook1 Workbook2.  I używać the dołączać kod the VBA w the przedmiot (worksheet) moduł the odbity prześcieradło.  Móc resztki dlaczego the kod rozpoznawać the VBComponents (the odpierający resztki przy zero); chociaż, tam  być 13 procedura w the przedmiot moduł.
(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:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
Private Okręt podwodny CommandButton5_Click ()
'Bieg macro ekstrakt i oprócz Rekomendacja prześcieradło oddzielny Przodować kartoteka
'-----------------------------------------------------
'Oznajmiać zmienna
'-----------------------------------------------------
    Ćmić wbNewBook Jako Workbook
    Ćmić fName Jako Wariant
    Ćmić sourceWB Sznurek
    Ćmić DGSSPkgNo Sznurek
    Ćmić Ostrzeżenie Sznurek
    Const pw Jako Sznurek = "delpdgsskey"
    
'---------------------------------------------------------
'Initialize zmienna dla magazynowanie Nabywca Wkład informacja
'---------------------------------------------------------
    DGSSPkgNo = Prześcieradło ("Projekt Chodnikowiec Prześcieradło - PECET"). Komórka (7, 3).Value
    fName = "C:\LeanDGSS\" & DGSSPkgNo &" _LeanWksht_SN "
    
    Application.EnableEvents = Fałszywy
    Na Błąd Rozpoczynający Kończyć
'*************************************************************
'Skłaniać the użytkownik dla kartoteka - imię, i wtedy ratować the workbook
'*************************************************************
    Jeżeli DGSSPkgNo = "" Wtedy
        'Definiować wiadomość
        Ostrzeżenie = MsgBox ("The DGSS Projekt # musieć wchodzić do" & _
        vbCrLf & "w the Projekt Chodnikowiec Prześcieradło przed Eksport", vbOKOnly, "Ostrzegać! ")
        
        Application.EnableEvents = Prawdziwy
        Wyjście Okręt podwodny
    Inny
        ThisWorkbook.Worksheets ("Polecać Dostawca Data_SN"). Kopia
        ActiveWorkbook.SaveAs Filename: =fName
    Kończyć Jeżeli
    Application.EnableEvents = Prawdziwy
 
'Wywoławczy Module2 Procedura VBA Składnik
    ActiveWorkbook.Sheets ("Polecać Dostawca Data_SN"). Unprotect pw
    
    Ciemnawy objDocument Jako Workbook
    Ustalony objDocument = ActiveWorkbook
    Wywoławczy RemoveAllMacros (objDocument)
    
Wyjście Okręt podwodny
Kończyć:
    MsgBox "Błąd zdarzać się: Weryfikować kartoteka już istnieć w kartoteka ścieżka"
Kończyć Okręt podwodny
'-----------------------------------------------------
Jawny Okręt podwodny RemoveAllMacros (objDocument Przedmiot)

    Ciemnawy i Długo, l Długo
    
    Jeżeli objDocument Być Okręt podwodny Wtedy Wychodzić Okręt podwodny
    
    i = (0)
    Na Błąd Życiorys Następnie
    
    i = objDocument.VBProject.VBComponents.Count
    Na Błąd Rozpoczynający (0)
    
    Jeżeli i < (1) Wtedy 'żadny VBComponents lub ochraniać VBProject
        MsgBox "The VBProject w" & objDocument.Name & _
        "ochraniać lub mieć żadny składnik! ", _
        vbInformation, "Usuwać Wszystkie Macros"
        Wyjście Okręt podwodny
    Kończyć Jeżeli
    
    Z objDocument.VBProject
    Dla i = .VBComponents.Count (1) Krok -1
        Na Błąd Życiorys Następnie
        .VBComponents.Remove .VBComponents (i)
        'kasować the składnik
        Na Błąd Rozpoczynający (0)
    Następnie i
    Końcówka Z
    
    Z objDocument.VBProject
        Dla i = .VBComponents.Count (1) Krok -1
            l = (1)
            Na Błąd Życiorys Następnie
            l = .VBComponents (i) .CodeModule.CountOfLines
            .VBComponents (i) .CodeModule.DeleteLines (1), l
            'jasny linia
            Na Błąd Rozpoczynający (0)
        Następnie i
    Końcówka Z
Końcówka Okręt podwodny

Odpowiedź : Kod dla Programmatically VBA od Odbity Workbook Stosownie

Programowy dostęp, w światopogląd:

2003:
Zastosowanie | narzędzie | macros | Makro- Ochrona | zaufany źródło | Zaufanie Dostęp the VBA Przedmiot Model… Zapewniać
2007:
Zastosowanie | Biurowy Guzik | App Opcja | Zaufanie Centre | Zaufanie Centre Położenie | Makro- Położenie | Zaufanie Dostęp the VBA Przedmiot Model… Zapewniać
Inne rozwiązania  
 
programming4us programming4us