使用VBA解决。打开工作簿,按下Alt+F11键,打开VBE编辑器,双击左边的thisworkbook,把下面的代码复制粘贴进右边的代码窗口。以后每次关闭工作簿时,就会在E盘根目录下自动保存一个备份文件。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim NM As String, i As Integer, BK As String, HZ As String
NM = ThisWorkbook.Name
i = Application.WorksheetFunction.Find(".", NM)
BK = Left(NM, i - 1)
HZ = Right(NM, Len(NM) - i + 1)
ThisWorkbook.SaveCopyAs "E:/" & BK & "(备份)" & HZ
End Sub
用自动同步的软件可以轻松实现。