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，但保留所有对象模块(工作表、工作簿).