VBA Module löschen
20.12.2003 02:03:19
Christoph Dümmen
unter Excel 97 funktioniert der Code hervorragend und löscht den gesamten Code der Arbeitsmappe. Warum unter XP nicht mehr?
Danke
Christoph
Sub KillVBA()
Dim vbc As Object
Dim wks As Worksheet
With ActiveWorkbook.VBProject
For Each vbc In .VBComponents
Select Case vbc.Type
Case 1, 2, 3
.VBComponents.Remove vbc
Case 100
vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines
End Select
Next
End With
End Sub
Anzeige