我的saveas代码创建了一个需要修复的文件

Question

以下是代码：

Sub saveAsXlsx()
    Dim myPath As String
    Application.DisplayAlerts = False
    myPath = Application.ActiveWorkbook.Path
    Worksheets(Array("User")).Copy
    ActiveWorkbook.SaveAs Filename:=myPath & "\VUONGJO.xlsx"
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub

非常简单的东西。将.xlsm另存为.xlsx文件

保存的信息正确无误。唯一的问题是当你打开.xlsx时它会修复文件和列表：

已移除的功能：来自/xl/worksheets/sheet1.xml部分的数据验证

但是当我使用ActiveWorkbook.Cells.Validation.Delete时它不起作用。

我不想从原版中删除valadation，但我想保存没有它的副本，我很难过