VBA-Beispiel 079
mail schreiben
mail schreiben

Module und UserFormen löschen

Entfernt alle Module, Klassenmodule und UserFormen der Exceldatei.

Hinweis: Das Makro entfernt aber nicht eventuell vorhandenen Code in den Tabellen bzw in DieseArbeitsmappe.
Wie Sie eine Mappe komplett von VBA-Code befreien, sehen Sie hier
Sub Module_UserFormen_entfernen()
'alle Module, UserFormen und Klassenmodule entfernen
Dim Ding As Object

With ThisWorkbook.VBProject

  For Each Ding In ThisWorkbook.VBProject.VBComponents

   'Type 100 = DieseArbeitsmappe und alle Tabellen
   'Type 1 = Modul
   'Type 3 = UserForm
   'Type 2 = Klassenmodul
    If Ding.Type <> 100 Then
      .VBComponents.Remove Ding
    End If

  Next

End With

End Sub

Download:   vba079.zip