使用ThisWorkbook.Save时Excel崩溃

Question

我正在尝试使用此代码，但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  

我要做的是隐藏提醒以避免显示“点击是以保存无宏工作簿等”的消息。并且在用户选择要保存的文件的目的地和名称之后，工作簿应该关闭但是为了避免确认保存的消息我使用了ThisWorkbook.Save但是出了问题并且导致程序崩溃。
  如果有人能帮助我解决这里的问题，那就太好了，谢谢。

修改
  我通过使用另一个代码来修复它 ThisWorkbook.Saved = True
Application.Quit
Application.ActiveWindow.Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=False

而不是
  ThisWorkbook.Save
Application.Quit