Rimuovere tutti i moduli VBA dal file excel?

Question

È possibile rimuovere tutti i moduli VBA da un file Excel utilizzando VBA?

I nomi dei moduli, se presenti, sono sconosciuti prima di eseguire questo script.

Answer 1

Ovviamente, è possibile. Il codice seguente farà il lavoro:

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 

Questo rimuovere tutti i moduli inclusi ClassModules e UserForms ma mantenere tutti i moduli di oggetto (fogli, cartelle di lavoro).

Answer 2

Ecco una simile alternativa che rimuove solo i ClassModules:

On Error Resume Next 
With wbk.VBProject 
    For x = .VBComponents.Count To 1 Step -1 
     If .VBComponents(x).Type = vbext_ct_StdModule Then 
      .VBComponents.Remove .VBComponents(x) 
     End If 
    Next x 
End With 
On Error GoTo 0