alle Code löschen außer einenBestimmten
Volker
Ich habe einen Code, aus den Forum, der alle Makro usw. löscht. Kann mir jemand den Code mal anpassen, das alle Code gelöscht werden außer einem Bestimmten?z.B. Modul9
anbei der Code
' Entfernt den Code aus der Arbeitsmappe
Sub entFerneCode(ByRef myWbk As Workbook)
Dim codeObject As Object
For Each codeObject In myWbk.VBProject.VBComponents
With codeObject
' Alle Module (Type 1), Forms (Code 2) und Klassenmodule (Code 3) löschen
If .Type >= 1 And .Type Anzeige