1.删除“模块 1”
ThisWorkbook.VBProject.VBComponents.Remove
ThisWorkbook.VBProject.VBComponents(" 模块 1")
2.删除窗体“ UserForm1”
ThisWorkbook.VBProject.VBComponents.Remove
ThisWorkbook.VBProject.VBComponents("UserForm1")
3.删除类模块“类 1”
ThisWorkbook.VBProject.VBComponents.Remove
ThisWorkbook.VBProject.VBComponents(" 类 1")
4.删除所有的窗体
Sub RmvForms()
Dim vbCmp As VBComponent
For Each vbCmp In
ThisWorkbook.VBProject.VBComponents
If vbCmp.Type = vbext_ct_MSForm Then
ThisWorkbook.VBProject.VBComponents.Remove vbCmp
Next vbCmp
End Sub
相关: