In dit artikel zullen we een macro maken om de module uit de werkmap te verwijderen.
We zullen de MainModule gebruiken als onbewerkte module.
We willen af van deze MainModule.
Klik hiervoor op deze knop.
Logische uitleg
In dit artikel hebben we twee macro's gemaakt, DeleteVBComponent en calling_procedure.
VBComponent verwijderen
Het neemt de naam van de werkmap en de modulenaam als invoer en verwijdert de module uit de werkmap.
aanroepende_procedure
Het wordt gebruikt om de DeleteVBComponent-macro aan te roepen met de actieve werkmap en MainModule als invoer.
Code uitleg
Application.DisplayAlerts = False
Deze code wordt gebruikt om het waarschuwingsbericht uit te schakelen.
wb.VBProject.VBComponents.Verwijder wb.VBProject.VBComponents(CompName)
Deze code wordt gebruikt om de module uit de werkmap te verwijderen.
Application.DisplayAlerts = True
Deze code wordt gebruikt om het waarschuwingsbericht in te schakelen.
Volg hieronder voor de code:
Optie Explicit Sub DeleteVBComponent (ByVal wb As Workbook, ByVal CompName As String) 'Het waarschuwingsbericht uitschakelen Application.DisplayAlerts = False 'Fouten negeren bij fout hervatten Volgende 'Verwijder het onderdeel wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents(CompName) ) Bij fout GoTo 0 'Inschakelen van het waarschuwingsbericht Application.DisplayAlerts = True End Sub calling_procedure() 'Calling DeleteVBComponent macro DeleteVBComponent ActiveWorkbook, "MainModule" End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite