2. 双击项目工程下的“This Workbook”，即当前正在操作的工作簿（或Excel文件）。
3. 在代码框上方两个选项框，分别选择Workbook和BeforeSave，BeforeSave是工作簿的一个事件，在保存Excel文件之前触发。Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)End Sub
4. 添加自动备份Excel文件（或工作簿）的代码：SaveCopyAs指的是另存一个备份。5. 将需要备份的Excel文件保存在D盘的test文件夹（可根据自己的需求自行设置文件夹）下，并且以保存Excel文件时的时间的文本格式来命名。
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. 当最新的数据有更改或者发现当前的数据有损时，可以在之前已备份的文件中找回。
以上案例仅用于演示，更多实际应用请根据自己的需求进行调整。
喜欢的朋友请多多关注，感谢支持！