Question

excel关闭时自动保存并更名，文件名为单元格A1的内容。当再次打开该文档时也不产生提示。

1、把这些代码复制到ThisWorkbook项目对象下：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
A = Sheets("Sheet1").Range("A1") '假定工作表1的A1单元格。必需指定工作表名。
B = ThisWorkbook.Path
C = ThisWorkbook.Name
D = B & "\" & A & ".xls" '如果你的Excel版本是2007，则后缀名改为.xlsx
E = B & "\" & C
ActiveWorkbook.SaveAs Filename:=D, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill E '本行删除原有文件
End Sub

以上代码可实现自动更名和覆盖原文档，就是再次打开时有文件出错提示？如何解决，需要一个文件判断，希望哪位大侠帮我解决，万分感激！！

Answer 1

两种方法,一、把EXCEL安全选项降低到启用所有宏

二、将原自动保存另存为加载宏，并将此加载宏加载到该电脑的EXCEL软件上（这个较复杂，可以百度一下）

Answer 2

1、宏级别设置为最低；

2、把代码放进去；

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Set wb = ActiveWorkbook
    wb.SaveAs ThisWorkbook.Path & "/" & Range("a1") & ".xlsm"
End Sub

追问

没体现单元格更名啊

追答

Range("a1") 输入你的名称