重要资料，记得备份！备份！备份！
手工备份就不说了，来个全自动备份的。当你点保存的时候，自动另存为一份在D:重要文件这个文件夹。
保存的文件名都是以当前的时间命名，这样就可以找到任意时间段的，再也不用担心出问题。
按快捷键Alt+F11进入VBA后台，点ThisWorkbook，将代码复制粘贴到里面。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs "D:重要文件" & VBA.Format(Now(), "yyyymmddhhmmss") & ".xlsm"
End Sub
蓝书字体D:重要文件部分为路径，更改成你电脑实际的地方。如果不知道路径在哪，这里教你一招超好用的方法，快速获取路径。
选择文件夹的那个地方，复制即可。
2.将多个工作表拆分成多个工作簿
同一个工作簿存在多个工作表。
拆分后，将这些工作表变成工作簿。
按快捷键Alt+F11进入VBA后台，插入模块，将代码复制粘贴到里面。
Sub 拆分工作表()
Dim b As Worksheet
Excel.Application.ScreenUpdating = False
For Each b In Sheets
b.Copy
Excel.ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & b.Name & ".xlsx"
Excel.ActiveWorkbook.Close
Next
Excel.Application.ScreenUpdating = True
End Sub
运行代码，等待10秒钟，拆分完毕。
