保存前删除部分VBA代码

Question

我在工作簿中使用了两个宏，因为宏之间需要一些数据操作。

我可以运行Macro 1并将文件保存为* .xlsm，在数据操作之后，需要运行Macro 2。

我想知道在保存之前删除宏1的可能性吗？

Answer 1

可能最简单的方法是将宏存储在一个单独的模块中，此代码将删除整个模块：

Sub DeleteModule()
    Dim VBProj As VBIDE.VBProject
    Dim VBComp As VBIDE.VBComponent

    Set VBProj = ActiveWorkbook.VBProject
    Set VBComp = VBProj.VBComponents("Module1")
    VBProj.VBComponents.Remove VBComp
End Sub

此代码来自www.cpearson.com/excel/vbe.aspx，您也可以在其中找到其他有用的信息。