如何删除活动工作簿中的所有宏代码？

作者：绿色风分类：时间：2022-08-17 浏览：150

楼主 willin2000	Q：如何删除活动工作簿中的所有宏代码？ A：使用一下代码： Sub MacroDel() Dim vbcCom, Vbc Set vbcCom = ActiveWorkbook.VBProject.VBComponents For Each Vbc In vbcCom If Vbc.Name Like "Sheet" Or Vbc.Name Like "This" Then Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines Else vbcCom.Remove (Vbc) End If Next Vbc ThisWorkbook.Save End Sub
2楼 gvntw	补充一下：如果宏运行后出现下面的对话框请先按下面方法操作： Excel 选项—信任中心—信任中心设置—勾选“信任对 VBA 工程对象模型的访问”，然后再运行宏。
3楼 yaoxuhuijsz	学习
4楼水星钓鱼	学习下 If Vbc.Name Like "Sheet" Or Vbc.Name Like "This" Then 这句代码假如工程中的各组件的codename不是默认的就无效了。可以改为 Sub xyf() Dim obj As VBComponent, oVBC Set oVBC = ActiveWorkbook.VBProject.VBComponents For Each obj In oVBC With obj.CodeModule .DeleteLines 1, .CountOfLines End With Next End Sub
5楼 paul001	怎么恢复这个操作呢

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表