vba - 如何通过宏清除工作表的VBA代码？

Question

我有一个文件，其中有一个模板表，当它被激活时需要运行一些代码。正在复制此工作表以创建不需要运行此代码的工作表。目前，我有代码在运行时检查工作表的代号，这样它就不会在额外的工作表上执行任何操作，但是当您在工作表之间切换时它仍然会减慢使用速度。

有什么方法可以让重复的宏也清除它们的VBA代码内容吗？

(编辑)请注意，我需要清除的代码不在模块中。经过一些研究，我似乎找到了一种删除模块的方法(通过访问 VBProject.VBComponents)，但我不确定如何访问工作表的 VBA 代码 .

Answer 1

要删除所有 Sheet 模块中的完整代码，您可以尝试如下操作:

Sub Remove_some_vba_code()

Dim activeIDE As Object 'VBProject
Set activeIDE = ActiveWorkbook.VBProject

Dim Element As VBComponent

Dim LineCount As Integer
For Each Element In activeIDE.VBComponents
    If Left(Element.Name, 5) = "Sheet" Then    'change name if necessary
        LineCount = Element.CodeModule.CountOfLines

        Element.CodeModule.DeleteLines 1, LineCount
    End If
Next

End Sub