如何真正实现无提示保存Excel文档

    要想取消Excel文档的保存提示，从而实现文档的自动保存，应该从两个方面加以考虑，一是设置ThisWorkBook.Saved属性，当此属性为True时，Excel会认为该文档已被保存过，因此不会弹出保存对话框，二另存时，如果目标文件已存在，则应先删除掉目标文件，这样Excel就不会弹出提示文件已存在的对话框，具体代码如下：

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim strFileName As String strFileName = "c:/temp.xls" ThisWorkbook.Saved = True If ThisWorkbook.FullName = ThisWorkbook.Name Then If Len(Dir(strFileName)) > 3 Then Kill strFileName ThisWorkbook.SaveAs strFileName Else ThisWorkbook.Save End If End Sub

    当然，如果不想另存，直接设置Saved属性就可以了。