VBA代码实现在EXCEL关闭时自动备份

lidayu

用VBA代码实现在EXCEL关闭时跳出是否保存?
1、点保存侧自动备份到指定本地盘E：\并新建为“我的备份”文件夹然后隐藏\AAA 20180101 备份.xlsm（E：\我的备份\工作簿名&日期&备份&.后缀）。

2、点不保存侧不备份。
3、备份的工作簿每天只保留最后更新的一个，例如：当天打开工作簿并保存为10次，第2次覆盖第1次、第3次覆盖第2次以此类推。
4、之前老师帮我写的代码打开单个工作簿可以实现，但同时打开两个工作簿然后关闭其中一个会出现问题“已停止工作”，请看看代码哪出了问题，菜鸟感激涕零。
附件请测试
调试.rar (11.24 KB, 下载次数: 0)

2018-1-4 14:55 上传

点击文件名下载附件

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2. On Error Resume Next
   
3. MkDir ("E:") & "\我的备份" '创建文件夹
   
4. SetAttr "E:\ 我的备份", vbHidden '隐藏文件夹
   
5. Application.DisplayAlerts = False
   
6. str1 = ThisWorkbook.Path & "" & ThisWorkbook.Name
   
7. ThisWorkbook.SaveAs "E:\ 我的备份" & "" & Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) & "备份" & Format(Date, "yyyy-m-d ") & ".xlsm"
   
8. ThisWorkbook.SaveAs str1
   
9. Application.DisplayAlerts = True
   
10. End Sub

复制代码

lidayu

是否这种没有解决的办法

lidayu

恭候老师不吝赐教

lidayu

恭候高手给予修改或重写

liyizhe000

打开一个工作簿也会停止工作吗？

lidayu

liyizhe000 发表于 2018-1-3 11:03
打开一个工作簿也会停止工作吗？

liyizhe000您好，打开单个工作簿运行正常，只有同时打开两个工作簿关闭其中一个才会出现，请您赐教，谢谢！

liyizhe000

lidayu 发表于 2018-1-3 13:30
liyizhe000您好，打开单个工作簿运行正常，只有同时打开两个工作簿关闭其中一个才会出现，请您赐教，谢谢 ...

宏运行的时候只能打开宏所在的工作簿，如果同时打开几个是有可能出错的

lidayu

liyizhe000 发表于 2018-1-3 14:40
宏运行的时候只能打开宏所在的工作簿，如果同时打开几个是有可能出错的

liyizhe000您好，宏是打开的，只要同时打开二个工作簿，一个带宏一个不带宏也会出错，

lidayu

难题，求高手赐教。

lidayu

可怜的求助恭候不了大神的帮助