
Private Sub CommandButton1_Click() Unload Me UserForm1.Show End Sub |
Set VBComp = ThisWorkbook.VBProject.VBComponents("MODULO1")
ThisWorkbook.VBProject.VBComponents.Remove VBComp
|
Sub PULISCI()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("useform1")
VBProj.VBComponents.Remove VBComp
End Sub
|
