folgendes Makro von Nepumuk habe ich bei meinen Recherchen gefunden:
Public Sub alle_Makros_loeschen()
Dim vbc As Object
With Workbooks("Testmappe.xls").VBProject
For Each vbc In .VBComponents
Select Case vbc.Type
Case 1, 2, 3: .VBComponents.Remove .VBComponents(vbc.Name)
Case 100
With vbc.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End Sub
Das funktioniert einwandfrei!
Ich habe nur noch ein Problem: Ist es möglich, daß alle Makros mit Ausnahme des folgenden Makros in "Diese Arbeitsmappe" gelöscht werden?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Danke für die HilfeGruß Dieter