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
vba 实现宏自杀
最新推荐文章于 2024-03-09 22:32:49 发布