Vraag : Code voor Programmatically die VBA verwijdert uit Gekopi�ërd Werkboek dat behoorlijk werkt niet

Ik gebruikte het exemplaarbevel om een blad van Workbook1 aan Workbook2 te kopiëren.  Ik gebruik de code in bijlage om VBA in de objecten (aantekenvel) module van het gekopi�ërde blad te verwijderen.  Kan iedereen me helpen begrijpen waarom de code niet VBComponents (tegen blijft op nul onveranderd) erkent; hoewel, er 13 procedures in de objecten module zijn.
" codeBody " 
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 SubCommandButton5_Click ()
De 'macro van de looppas om uittreksel teweeg te brengen en het blad van de Aanbeveling te bewaren als afzonderlijk dossier van Excel
'
'Verklaar variabelen
'
    Verduister wbNewBook als Werkboek
    Verduister fName als Variant
    Verduister sourceWB als Koord
    Verduister DGSSPkgNo als Koord
    Verduister Alarm als Koord
    Const pw als Koord = „delpdgsskey“
    
'
'Initialiseer variabelen voor het opslaan van de informatie van de Input van de Koper
'
    DGSSPkgNo = Bladen („het Blad van de Kopbal van het Project - PC“). Cellen (7, 3). Waarde
    fName = „C:\LeanDGSS\“ & DGSSPkgNo &“ _LeanWksht_SN "
    
    Application.EnableEvents = Vals
    Op Fout GoTo eindig
'*************************************************************
'Herinnering de gebruiker voor een dossier - noem, en bewaart dan het werkboek
'*************************************************************
    Als DGSSPkgNo = "" toen
        'Bepaal bericht
        Alarm = MsgBox (het „Dgss- Project # moet zijn ingegaan“ & _
        vbCrLf & „in het Blad van de Kopbal van het Project voorafgaand aan de Uitvoer“, vbOKOnly, „Waarschuwing! “)
        
        Application.EnableEvents = Waar
        Sub van de uitgang
    Anders
        ThisWorkbook.Worksheets („Geadviseerde Leverancier Data_SN“). Exemplaar
        ActiveWorkbook.SaveAs Filename: =fName
    Eind als
    Application.EnableEvents = Waar
 
De 'procedure van de vraag Module2 om Componenten te verwijderen VBA
    ActiveWorkbook.Sheets („Geadviseerde Leverancier Data_SN“). Unprotect pw
    
    Schemerige objDocument als Werkboek
    Vastgestelde objDocument = ActiveWorkbook
    Vraag RemoveAllMacros (objDocument)
    
Sub van de uitgang
Eindig:
    Fout van MsgBox de „kwam voor: Verifi�ër het dossier niet reeds in dossierweg“ bestaat
Beëindig Sub
'
Openbare SubRemoveAllMacros (objDocument als Voorwerp)

    Schemerige I zoals lang, l zoals lang
    
    Als objDocument niets toen is ga Sub weg
    
    i = 0
    Op Fout hervat daarna
    
    i = objDocument.VBProject.VBComponents.Count
    Op Fout GoTo 0
    
    Als I < 1 toen 'geen VBComponents of beschermde VBProject
        MsgBox „VBProject in“ & objDocument.Name & _
        „is beschermd of heeft geen componenten! “, _
        vbInformation, „verwijdert Alle Macro's“
        Sub van de uitgang
    Eind als
    
    Met objDocument.VBProject
    Voor I = .VBComponents.Count aan 1 Stap -1
        Op Fout hervat daarna
        .VBComponents.Remove .VBComponents (I)
        'schrap de component
        Op Fout GoTo 0
    Volgende I
    Eind met
    
    Met objDocument.VBProject
        Voor I = .VBComponents.Count aan 1 Stap -1
            l = 1
            Op Fout hervat daarna
            l = .VBComponents (I) .CodeModule.CountOfLines
            .VBComponents (I) .CodeModule.DeleteLines 1, l
            'duidelijke lijnen
            Op Fout GoTo 0
        Volgende I
    Eind met
Sub van het eind

Antwoord : Code voor Programmatically die VBA verwijdert uit Gekopi�ërd Werkboek dat behoorlijk werkt niet

Programmatic toegang, in vooruitzichten:

2003:
Toepassing | hulpmiddelen | macro's | Macro Veiligheid | vertrouwde op bronnen | De Toegang van het vertrouwen tot het Model van Objecten VBA… verzekert getikt
2007:
Toepassing | De Knoop van het bureau | App Opties | Het Centrum van het vertrouwen | De Montages van het Centrum van het vertrouwen | Macro Montages | De Toegang van het vertrouwen tot het Model van Objecten VBA… verzekert getikt
Andere oplossingen  
 
programming4us programming4us