vba - 如何使用 VBA 从工作表中删除 VBA 代码？

Question

我想通过VBA删除工作表中包含的VBA代码。目前，我有一个代码可以将工作表复制到新工作簿并从中删除所有图像。但是，这些图像被设置为在代码中的 Worksheet_Activate 上执行操作，每当我轻拂到该工作表时就会导致错误，那里没有图像。

我知道我可以使用以下内容摆脱模块等:

 With ActiveWorkbook.VBProject 
        For x = .VBComponents.Count To 1 Step -1 
            .VBComponents.Remove .VBComponents(x) 
        Next x 
        For x = .VBComponents.Count To 1 Step -1 
            .VBComponents(x).CodeModule.DeleteLines _ 
            1, .VBComponents(x).CodeModule.CountOfLines 
        Next x 
    End With

但这不会从工作表(或与此相关的工作簿中删除)。想知道这是否也可能会很有趣。

代码本身需要对 Excel 版本 2003 到 2013 有效(因此无法使用另存为 xlsx 解决方法)。

Answer 1

发现问题了。我的代码工作正常，只是我测试它的计算机不允许访问 VBA 项目对象模型(并且在代码中使用 On Error Resume Next 运行它)

在这种情况下，必须编写一个异常来解决这个问题。

感谢@mehow @nixda @SiddharthRout 和@DaveU 的帮助