Beim speichern VBA Code löschen

Hallo zusammen,
ich habe einen Code der eine Makro Datei während speichern die Buttons usw löscht. Das Sheet wird dann als normale .xls datei abgelegt.
Jedoch löscht er nicht die darin enthaltete VBA Codes/Module.
Ist das Löschen von VBA Codes durch VBA während speichern möglich?
Im Netz habe ich zwar ähnliche Themen gefunden, jedoch löschen diese nicht den Codeinhalt während speichern.
Hier mein funktionierender Code:


Private Sub CommandButton3_Click()
Dim varFileName As Variant, objShp As Shape, sh As Object
ChDrive "C"
ChDir "C:/"
varFileName = Application.GetSaveAsFilename(varFileName, "Excel Arbeitsmappe ohne VBA (*.xls),*.xlsx,") ' hier wird bereits als xls xlsx Datei abgespeichert, aber die Codes sind nach Speicherung noch immer in der Datei.
If Not varFileName = False Then
Application.DisplayAlerts = False
For Each sh In Sheets
If Not sh.Name = ActiveSheet.Name Then sh.Delete
Next sh
Application.DisplayAlerts = True
For Each objShp In ActiveSheet.Shapes
If objShp.Type = msoOLEControlObject Then objShp.Delete
Next objShp
ThisWorkbook.SaveAs varFileName, FileFormat:=xlWorkbookNormal
Else
MsgBox "Abgebrochen.."
End If
End Sub

Danke für eure Hinweise.
VG
Memo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc] Sub CodeEntfernen() Dim VBComp As Object If MsgBox("Soll jetzt wirklich der gesamte Code entfernt werden?", vbQuestion Or vbYesNo, _ "Code entfernen") <> vbYes Then Exit Sub For Each VBComp In ThisWorkbook.VBProject.VBComponents If VBComp.Type = 1 Then 'Type: 1=Modul, 3=Formular, 100=DieseArbeitsmappe bzw. Tabelle If VBComp.Name <> "Modul1" Then ' Dieses Modul ausnehmen VBComp.CodeModule.DeleteLines StartLine:=1, Count:=VBComp.CodeModule.CountOfLines End If End If Next End Sub

Code: [Cc] Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' Löscht alle Module Dim VBComp As Object If MsgBox("Sollen alle Codemodule entfernt werden?", vbQuestion Or vbYesNo, _ "Code entfernen") <> vbYes Then Exit Sub With ThisWorkbook.VBProject For Each VBComp In .VBComponents If VBComp.Type = 1 Then 'Type: 1=Modul, 3=Formular, 100=DieseArbeitsmappe/Tabelle .VBComponents.Remove .VBComponents(VBComp.Name) End If Next End With End Sub

Wann hast du die Datei angeschaut?
In der Datei, die du ohne Makros gespeichert hast, bleiben die Makros erstmal drin.
Das löschen der Makros geschieht beim Schreiben auf das Verzeichnis, die Datei in deinem Ordner bleibt erstmal unverändert.
Du müsstest also die Datei schließen und die als xlsx gespeicherte Datei neu öffnen, um die Veränderung zu sehen.
Außerdem musst du hierfür den Dateityp angeben, so wie von Nepumuk gezeigt.
Den Speichernamen ändern bringt nicht, das ist wie bei einer Geschlechtsumwandlung, nur den Namen ändern bringt nichts, da muss man tiefer eingreifen.
Man sollte sogar beim Speichern unter den Typkürzel im Namen sogar ganz weglassen, da dieser dann automatisch und passend zum gewählten Dateityp vom System vergeben wird.
Auch würde ich nicht den Typ xmlWorbookDefault verwenden, denn wer weiß schon genau, was der DefaultTyp ist.
Verwende wie von Nepumuk gezeigt den Typ für xlsx, also 51 oder xlopenxmlworkbook
Gruß Daniel
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Beim speichern VBA Code löschen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread