VB-Code aus Modulen löschen
24.06.2008 15:39:47
volti
ich möchte vor der Weitergabe einer Exceldatei sämtlichen Code aus der Datei entfernen, so dass auch keine Abfrage bzgl. Makroaktivierung mehr kommt. Habe dazu folgenden Code gefunden, der zuhause (XL97) auch funktioniert.
Sub Code_loeschen()
'Gesamten Code und Module löschen
Dim myVBComponents As Object
If InStr(ActiveWorkbook.Name, "_aktuell") 0 Then Exit
Sub
With ActiveWorkbook.VBProject
For Each myVBComponents In .VBComponents
Select Case myVBComponents.Type
Case 1, 2, 3
.VBComponents.Remove .VBComponents(myVBComponents.Name)
Case 100
With myVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End Sub
Hier bei Excel 2003 kommt jedoch folgender Fehler:
Laufzeitfehlr 1004:
Der programmatische Zugriff auf das Visual-Basic-Projekt ist nicht sicher.
Nach weiteren Aufrufen des Makros kommt Laufzeitfehler 1004: Die Methode "VBProject" für das Objekt _Workbook ist fehlgeschlagen
Kann mir jemand helfen?
viele Grüße
Karl-Heinz
Anzeige