保存副本后，excel vba代码消失了

Question

我有一个模板，我们的工作人员可以在其中填写数据，然后该文件应保存为新文件，其中包含我的模板中的原始宏 但这似乎不起作用。始终在新文件中删除代码。 该模板也应该保存，因为其中的编号必须与创建的每个新文件一起使用。

有人知道解决方案吗？

Public Sub OpslBestand()
On Error Resume Next
Book1_BeforeSave
SavePdfEmail
Dim NieuwRet As Variant
ActiveWorkbook.Sheets.Copy  
NieuwRet = "P:\Retourformulieren\Excel\" & Range("L2").Value & "-JL-" & Format(Date, "YYYYMMDD") & "-" & Range("Klant").Value
ActiveWorkbook.SaveAs NieuwRet, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
VolgRet
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Answer 1

如果将文件另存为.xlsx，则会删除该宏。您需要将文件另存为.xlsm（启用宏）。