1. 点击“开发工具”，打开Visual Basic。
2. 双击项目工程下的“This Workbook”，当前正在操作的工作簿。
3. 在代码框上方两个选项框，分别选择Workbook和BeforeSave，BeforeSave是工作簿的一个事件，在保存Excel文件之前触发。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub
4. 添加自动备份Excel文件（或工作簿）的代码：SaveCopyAs指的是另存一个备份。
5. 保存在D盘的test文件夹下，并且以保存Excel文件时的文本格式时间来命名。
Excel VBA系列之NOW和TEXT函数的结合 - 简书
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs "D:\test\" & Format(Now(), "yyyymmddhhmmss") & ".xlsx"
End Sub
6. 点击Excel文件的保存按钮时，test文件夹下就会自动备份一个Excel文件。
7. 当最新的数据有损时，可以在之前已备份的文件中找回。
