请教VBA大神，我以下代码为什么自动保存不了新建的工作簿，出现提示：无法在未启用宏的工作簿中保存以下

Sub 按钮3_Click()
Dim wb, mywb As Workbook
Set mywb = ThisWorkbook
On Error Resume Next
Kill ThisWorkbook.Path & "\" & Month(Date) & "月" & Day(Date) & "日导出工单.xlsx"
Set wb = Workbooks.Add
mywb.Sheets("材料使用").Copy after:=wb.Sheets(1)
mywb.Sheets("工单").Copy after:=wb.Sheets(1)

Application.DisplayAlerts = False
wb.Sheets("sheet1").Delete

wb.Sheets("sheet2").Delete

wb.Sheets("sheet3").Delete
Application.DisplayAlerts = True
wb.SaveAs ThisWorkbook.Path & " \" & Month(Date) & "月" & Day(Date) & "日导出工单.xlsx"

wb.Close

End Sub

相关了解……