vba 实现宏自杀

最新推荐文章于 2024-07-05 08:53:58 发布

qinglinglaoren

最新推荐文章于 2024-07-05 08:53:58 发布

阅读量3.5k

点赞数

分类专栏： Office 文章标签： vba kill

Office 专栏收录该内容

2 篇文章

订阅专栏

sub kill()

'宏的自杀
'
ActiveWorkbook.Activate
 
For i = 1 ToActiveWorkbook.VBProject.VBComponents.Count
 
   ActiveWorkbook.VBProject.VBComponents(i).CodeModule.DeleteLines 1, _
   ActiveWorkbook.VBProject.VBComponents(i).CodeModule.CountOfLines
   
Next

end sub