如何用代码删除当前工作簿中的宏代码

13736005858

如何用代码删除当前工作簿中的宏代码，清空所有宏代码，请高手指点下

microyip

另存为xlsx格式就没有代码了

shenjianrong163

1. Sub test()
   
2.     Dim vbc
   
3.     For Each vbc In Application.ActiveWorkbook.VBProject.VBComponents
   
4.         Select Case vbc.Type
   
5.         Case 1, 2, 3
   
6.             With Application.VBE.ActiveVBProject.VBComponents  '删除模块、类模块、窗体中的代码
   
7.                 .Remove .Item(vbc.Name)
   
8.             End With
   
9.         Case Else
   
10.             vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines  '删除工作薄中的代码
    
11.         End Select
    
12.     Next
    
13. End Sub

复制代码

13736005858

shenjianrong163 发表于 2020-6-6 14:50

运行错误 1004

13736005858

microyip 发表于 2020-6-6 14:49
另存为xlsx格式就没有代码了

2003，版本低

microyip

最简易的方法就是装一个2007兼容包，然后另存为xlsx格式

shenjianrong163

13736005858 发表于 2020-6-6 14:55
运行错误 1004

'引用 Microsoft Visual Basic For Application Extensibility 5.3, office 2003
'信任对vb项目的访问

sj15627581616

13736005858 发表于 2020-6-6 14:56
2003，版本低

换个版本就完事了 有多麻烦

lwwy1981

"C:\Program Files\WinRAR\winrar" d 1.xlsm *.bin -r

WINDOWS命令行下运行这个,所有模块,所有VBA删除的干干净净,就和新建的XLS文件一样,表内容不会删除

13736005858

lwwy1981 发表于 2020-6-6 15:07
"C:\Program Files\WinRAR\winrar" d 1.xlsm *.bin -r

WINDOWS命令行下运行这个,所有模块,所有VBA删除的 ...

只要当前工作簿就可以了，你这杀伤力有点大~