Mit­un­ter ist es erforder­lich, dass eine Ar­beits­map­pe so gespe­ichert wird, dass dar­in enthal­tener VBA-Code (Ma­kros) nicht mehr in der Ziel-Da­tei enthal­ten ist. Das geht natür­lich per Hand ganz ein­fach, in­dem das ent­spre­chen­de Dateifor­mat (*.xlsx) ge­wählt wird. Soll das Gan­ze aber automa­tisiert wer­den, dann kön­nte solch ein Ma­kro hel­fen:

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

Be­den­ken Sie aber, dass Sie für sich sel­ber vor­her eine Ko­pie mit Ma­kro (*.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 ger­ne per Mail an mich (G.​Mumme@​Excel-​ist-​sexy.​de)

Hat Ih­nen der Bei­trag ge­fal­len?
Er­leich­tert die­ser Bei­trag Ihre Ar­beit?

Dann wür­de ich mich über ei­nen Bei­trag Ihrer­seits z.B. 1,00 € freu­en … (← Klick mich!)