Makro in "Dieser Arbeitsmappe" löschen

Bild

Betrifft: Makro in "Dieser Arbeitsmappe" löschen
von: Torsten K.
Geschrieben am: 25.04.2005 13:23:13
Hallo beisammen,
wie kann ich über VBA die in "Dieser Arbeitsmappe" befindlichen Makros löschen?
Hintergrund: Ich kopiere eine Datei über VBA und möchte die Makros in der Kopie ebenfalls über VBA löschen.
Für Eure Hilfe im voraus besten Dank.
Gruß
Torsten

Bild

Betrifft: AW: Makro in "Dieser Arbeitsmappe" löschen
von: Hajo_Zi
Geschrieben am: 25.04.2005 13:27:18
Hallo Torsten,
Code Löschen
‚ löschen von allen Makros
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Remove .VBComponents("Modul2")
.VBComponents.Remove .VBComponents("Modul3")
‚ löschen von z.B. Workbook_open:
With .VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
End With
‘ löschen von z.B. Worksheet_Activate:
With .VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
von Steffen D (Herber.de)

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Bild

Betrifft: AW: erledigt - Vielen Dank - Gruß Torsten
von: Torsten K.
Geschrieben am: 25.04.2005 13:33:09

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler 70 abfragen"