Makro automatisch löschen

Bild

Betrifft: Makro automatisch löschen
von: Dr.
Geschrieben am: 16.03.2005 13:47:52
Hi zusammen,
ich bin zwar sicher, dass das Thema schon öfters behandelt wurde, aber offensichtlich habe ich Tomaten auf den Augen, denn ich find nix mehr dazu:
Wie kann ich innerhalb einer VBA-Routine ein oder mehrere Makros aus bestimmten Tabellenblättern löschen? Hintergrund: ich möchte ein dynamisches Sheet als formel- und makrofreies statisches Sheet abspeichern.
Danke im voraus für Eure Ansätze!

Bild

Betrifft: AW: Makro automatisch löschen
von: Hajo_Zi
Geschrieben am: 16.03.2005 13:53:08
Hallo Dr.
hast Du Dir da bei Deinem Level nicht ein wenig viel vorgenommen?
Ich habe mal in mein Archiv geschaut.
Der Code löscht sämtlichen Code aus allen Modulen und Klassenmodulen
Dim objX As Object
ActiveWorkbook.SaveAs Filename:="e:\kann weg.xls"
For Each objX In ThisWorkbook.VBProject.VBComponents
With ThisWorkbook.VBProject.VBComponents(objX.Name).CodeModule
For i = 1 To .Countoflines
.DeleteLines 1
Next
End With
Next
ActiveWorkbook.Save
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.


Bild

Betrifft: AW: Makro automatisch löschen
von: Dr.
Geschrieben am: 16.03.2005 13:58:33
Das bekomm ich schon hin.
Über die VBA Recorder Phase bin ich schon lange hinweg, aber als "VBA gut" würde ich mich dennoch nicht bezeichnen. Und dazwischen gibts ja bekanntlich nix. ;-)
Danke!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro automatisch löschen"