1、启用宏。
文件-选项-信任中心-信任中心设置-宏设置
2、修改文件类型为支持宏的文件类型。如XLSM，XLSB。
大家可以新建一个文件在另存为选择保存类型。
本文以“示例.xlsb”为例。
3、打开代码编辑窗口。
按住Alt+F11，然后点击Microsoft excel对象下的Thisworkbook
4、拷入程序代码：
（本文以备份在"D:\Onedrive\BACKUP\"为例，大家可以相应的更改为自己需要的）
Private Sub Workbook_Open()
Dim FileName As String
With ThisWorkbook
FileName = Left(.Name, InStrRev(.Name, ".") - 1) & "_" & Format(Date, "YYYYMMDD") & Right(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)
End With
If Dir("D:\Onedrive\BACKUP\" & FileName) = "" Then
ThisWorkbook.SaveCopyAs "D:\Onedrive\BACKUP\" & FileName
End If
End Sub
5、大功告成。
文件会在每天打开时自动备份一次了，并且会以日期作为后缀名。
