Löschen von VBA Code
04.08.2003 17:02:30
Andreas
Ich möchte vor dem Speichern eines Dokumentes, aber natürlich nach dem Abarbeiten aller VBA-Code Zeilen den gesamten VBA Code des Dokumentes löschen.
Dazu möchte ich folgenden Code anwenden.
1: Option Explicit
2:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
3: 'Sonstige Anweisungen...
4: With ThisWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
5: .DeleteLines 1, .CountOfLines
6: End With
7: End Sub
Das betreffende Worksheet wird aus einer Vorlage generiert und anschließend
unter einem dynamisch erzeugten Dateinamen gespeichert. Der Dateiname ist also
immer unterschiedlich - Er wird in einer Zelle in Mappe1 generiert und bei
"SaveAs" ausgelesen. In wie weit muss ich das Script modifizieren, so dass
der String des Dateinamen zum löschen aller VBA Codes genutzt wird, und erst
danach zum speichern mittels "SavesAs Filename:="?
Schonmal vielen Dank für eure Unterstützung.
Viele Grüße
Andreas