Excel使用ThisWorkbook.Save时崩溃

我试图使用这个代码，但Excel保持崩溃

Application.DisplayAlerts = False Dim v As Variant v = Application.GetSaveAsFilename(, "Excel files (*.xlsx), *.xlsx") If VarType(v) = vbString Then ActiveWorkbook.SaveAs Filename:=v, _ FileFormat:=51, CreateBackup:=False End If ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit 

我想要做的是隐藏警报，以避免消息说：“点击是保存macros观免费的工作簿等。 并在用户select要保存的文件的目的地和名称后，该工作簿应该closures，但为了避免确认保存的消息我使用ThisWorkbook.Save但有些错误，它导致程序崩溃。
如果有人帮我解决这里的问题真的很好，谢谢。

编辑
我通过使用另一个代码是固定的
ThisWorkbook.Saved = True
Application.Quit
Application.ActiveWindow.Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=False

代替
ThisWorkbook.Save
Application.Quit