Question

EXCEL如何自动删除当前工作表里面的VB代码

我要删除的不是宏，是VB代码（alt+11），我想在运行我的另存为宏的时候顺便把当前工作表里面的事件代码删除掉，请问如何实现？

Answer 1

如果是2007以上版本，另存为.xlsx格式就自动删除工作表里的VBA代码了

Answer 2

下面代码可以删除当前工作簿的sheet1中的所有代码.

Sub test()
With ThisWorkbook.VBProject.VBComponents("sheet1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub

如果提示"不信任到vbp的程序连接",需要先在宏安全性的可靠发行商里勾选"信任对于vbp的访问"