Makro durch Makro löschen
18.05.2006 14:12:37
Alex
habe ein Makro zum löschen aller Makros in einer Arbeitsmappe geschrieben.
Es werden auch alle Makros gelöscht nur die Userforms nicht. Somit ist die Datei nicht sauber und die Excel Startabfrage kommt immmer wieder.
Kann mir hier jemand weiterhelfen?
[code]
Sub MakrosEntfernen()
Dim CodeObj As Object
If Val(Application.Version) >= 8 Then
With ActiveWorkbook.VBProject
For Each CodeObj In .VBComponents
Select Case CodeObj.Type
Case 1, 2
.VBComponents.Remove CodeObj
Case Else
With CodeObj.CodeModule
If .CountOfLines > 0 Then
.deleteLines 1, .CountOfLines
End If
End With
End Select
Next
End With
End If
For Each CodeObj In ActiveWorkbook.Names
Select Case CodeObj.MakroType
Case xlFunction, xlCommand
CodeObj.Delete
End Select
Next
End Sub
[/code]