Hallo,
gibt es das Objekt Codemodul unter Excel ´97?
Ich will ein Makro schreiben welches sämtlichen VBA-Code aus einer Excel-Datei entfernt. Die Module sind kein Problem, aber der Code im Sheet, den bekomm ich einfach nicht los. In der Recherche hab ich folgenden Code dazu gefunden:
Dim vbc As Object
With ActiveWorkbook.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
Leider sind das Objekt CodeModule und alle weiteren dazugehörigen Ereignisse meinem Excel offensichtlich völlig unbekannt.
mfG Jörg