Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VB-Code aus Modulen löschen

VB-Code aus Modulen löschen
24.06.2008 15:39:47
volti
Hallo liebes Forum,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VB-Code aus Modulen löschen
24.06.2008 16:07:31
Rudi
Hallo,

Der programmatische Zugriff auf das Visual-Basic-Projekt ist nicht sicher.


Extras-Makro-Sicherheit-Vertrauenswürdige Quellen, Haken bei 'Zugriff auf ...' rein.
Gruß
Rudi

AW: VB-Code aus Modulen löschen
24.06.2008 16:12:00
volti
Ja, so einfach ist das. Man muss es nur wissen. *schäm*
vielen Dank Rudi. Funktioniert jetzt..
viele Grüße aus Freigericht
KH
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige