VBA 修改关闭不保存代码

Sub 修改关闭不保存()
Range("A1") = 1
ThisWorkbook.Saved = True
ThisWorkbook.Close

End Sub

'ThisWorkbook.Close SaveChanges:=False