VBA删除代码 

Sub compact_code()

On Error Resume Next
    Dim Element As Object
    For Each Element In ActiveWorkbook.VBProject.VBComponents
        ActiveWorkbook.VBProject.VBComponents.Remove Element
    Next

End Sub

这将删除所有模块，包括 ClassModules 和 UserForms，但保留所有对象模块(工作表、工作簿).　

posted @ 2022-06-14 08:43  tec2019  阅读(604)  评论(0)    收藏  举报