Hallo,
ich speichere von einer Datei eine Kopie und möchte dann in der Kopie keine Macros mehr haben. Habe es über folgenden Code unten versucht, aber das klappt nicht! Gibt's dafür etwas besseres?
Gruß,
Ellen
Dim vbeComponent As VBComponent
Dim vbeComponents As VBComponents
Set vbeComponents = ActiveWorkbook.VBProject.VBComponents
For Each vbeComponent In vbeComponents
Select Case vbeComponent.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, vbext_ct_ClassModule
vbeComponents.Remove vbeComponent
Case Else
With vbeComponent.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next vbeComponent