请问:能否 一次清除所有表里的“指向宏”
求助代码
------最佳解决方案--------------------------------------------------------
For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
With ThisWorkbook.VBProject.VBComponents(i).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
With ThisWorkbook.VBProject.VBComponents(i).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next