Mitunter ist es erforder­lich, dass eine Arbeitsmappe so gespe­ichert wird, dass darin enthal­tener VBA-Code (Makros) nicht mehr in der Ziel-Datei enthal­ten ist. Das geht natür­lich per Hand ganz ein­fach, indem das entsprechende Dateifor­mat (*.xlsx) gewählt wird. Soll das Ganze aber automa­tisiert wer­den, dann kön­nte solch ein Makro helfen:

Option Explicit

Sub SpeichernOhneMakro()
   Dim Pfad As String, DateiName As String
    
   Pfad = "C:\Testbereich\"
   DateiName = "MeinDateiName" & ".xlsx"""
   On Error GoTo ErrorHandler
   With Application
      .ScreenUpdating = False
      .DisplayAlerts = False
   End With
   ActiveWorkbook.SaveAs strDname, FileFormat:=xlOpenXMLWorkbook
   
ErrorHandler:
   With Application
      .ScreenUpdating = True
      DisplayAlerts = True
   End With
   If Err.Number <> 0 Then MsgBox "Fehler Nr.: " & Err.Number & vbCrLf _
    & Err.Description, vbCritical, "Fehler!"
End Sub

Bedenken Sie aber, dass Sie für sich sel­ber vorher eine Kopie mit Makro (*.xlsb oder *.xlsm) spe­ich­ern oder den VBA-Code getren­nt als Text oder *.bas spe­ich­ern.

▲ nach oben …

Rück­mel­dun­gen / Feed­back gerne per Mail an mich (G.Mumme@Excel-ist-sexy.de)

Hat Ihnen der Beitrag gefallen?
Erleichtert dieser Beitrag Ihre Arbeit?

Dann würde ich mich über einen Beitrag Ihrer­seits z.B. 1,00 € freuen … (← Klick mich!)