Werkblad opslaan zonder macros

[mvanbe]

Goedemiddag,

Onderstaande code gebruik ik om een werkblad op te slaan als nieuw bestand.
Helaas wordt in dit nieuwe bestand ook de macros van die sheet opgeslagen. Ik zou deze graag willen opslaan zonder macros.
Het lukt mij niet op een geschikte aanpassing te vinden of te maken.. Iemand een idee?
Alvast bedankt

Sub Export_tabblad()

Dim strFileName As Variant
Dim strPath As String
  
Application.EnableEvents = False
Application.DisplayAlerts = False

strFileName = Worksheets("Data").Range("E3").Value
strFileName = Application.GetSaveAsFilename(InitialFileName:=strPath & strFileName, _
                                              FileFilter:="Excel File (*.xlsx), *.xslx", _
                                              FilterIndex:=1, _
                                              Title:="Kies locatie om bestand op te slaan")
On Error Resume Next
  
  If strFileName = False Then
    MsgBox "Bestand is niet opgeslagen"
  Else
    Sheets("Rapport").Copy
    
    Columns("A:A").ColumnWidth = 4
    Columns("A:A").VerticalAlignment = xlTop
    Columns("B:D").EntireColumn.AutoFit
     
    ActiveWorkbook.SaveAs filename:=strFileName
    MsgBox "Opslaan gelukt; Opgeslagen als: " & strFileName
  End If
  
 Application.EnableEvents = True
 Application.DisplayAlerts = True

End Sub

 

[lam201]

Hi,

ik denk zo

ActiveWorkbook.SaveAs filename:=strFileName, fileformat:=51

(zonder te testen)

 

[mvanbe]

Hi,

ik denk zo

ActiveWorkbook.SaveAs filename:=strFileName, fileformat:=51

(zonder te testen)

Hi, bedankt voor je reactie. Helaas niet het gewenste resultaat

 

[edmoor]

Die code is goed.
Wees dus iets duidelijker met wat je bedoelt met niet het gewenste resultaat.
Test ook zonder die overbodige On Error Resume Next.

 

[mvanbe]

Sorry. De code werkt inderdaad. Maar... De nieuw opgeslagen werkmap heeft nog steeds de macro's van het originele werkblad.

 

[edmoor]

Dat bestaat niet.
Een .xlsx document KAN geen macro's bevatten.

 

[lam201]

bestand even afsluiten
en dan de weer openen.
macro's zijn dan weg.

 

[mvanbe]

bestand even afsluiten
en dan de weer openen.
macro's zijn dan weg.

Dit maakt inderdaad het verschil! Dat moet je ook maar net even weten.

Opgelost! Bedankt iedereen voor het snelle reageren en meedenken