由于execlVBA运行之后无法撤销，所以写了一个自动备份当前活动文档的代码

过客fppt

1. Sub 备份当前文档()
   
2. '    On Error Resume Next
   
3. 
   
4.     Dim 当前文件地址, 当前文件名, 当前文件全名 As String
   
5.     Dim 备份文件夹, 备份文件名, 备份文件全名 As String
   
6. 
   
7.     ' 获取文件路径和文件名
   
8.     当前文件全名 = ThisWorkbook.FullName
   
9.     当前文件名 = ThisWorkbook.Name
   
10. 
    
11.     ' 获取备份文件夹的完整路径
    
12.     备份文件夹 = ThisWorkbook.Path & "\备份路径"
    
13.     备份文件名 = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "_" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ".xlsm"
    
14.     备份文件全名 = 备份文件夹 & 备份文件名
    
15. 
    
16.     ' 创建备份文件夹（如果不存在）
    
17.     If Dir(备份文件夹, vbDirectory) = "" Then
    
18.         MkDir 备份文件夹
    
19.     End If
    
20. 
    
21.     ' 备份文件
    
22. '    FileCopy filePath, backupFolder & Format(Now, "yyyy-mm-dd hh-mm-ss") & " " & fileName
    
23. 
    
24.     Application.RecentFiles.Add Name:=当前文件全名
    
25.     ActiveWorkbook.SaveAs fileName:=备份文件全名, AccessMode:=xlNoChange, ConflictResolution:=1, AddToMru:=-1
    
26.    
    
27.     Workbooks.Open 当前文件全名    '打开工作簿
    
28.    
    
29.    
    
30.     Windows(备份文件名).Activate
    
31.     ActiveWorkbook.Save         '保存当前工作簿
    
32.     ThisWorkbook.Save           '保存当前代码所在的工作簿
    
33.    
    
34.     Windows(备份文件名).Close
    
35.     Windows(当前文件全名).Activate
    
36.     Windows(当前文件名).Activate
    
37.    
    
38.         ' 提示备份完成
    
39.     MsgBox "备份完成！", vbInformation
    
40. 
    
41. 
    
42. End Sub
    
43. 
    
44. Sub Auto_Open()'打开文档时自动运行的宏
    
45.     Call 备份当前文档
    
46. End Sub
    
47. 
    
48. '下面是一个示例：在 Workbook_Open 事件中，每隔三分钟自动运行一个名为 AutoRunMacro 的宏
    
49. Private Sub Workbook_Open()
    
50.     Call ScheduleMacro
    
51. End Sub
    
52. 
    
53. Sub ScheduleMacro()
    
54.     Application.OnTime Now + TimeValue("00:03:00"), "AutoRunMacro"
    
55. End Sub
    
56. 
    
57. Sub AutoRunMacro()
    
58.     Call 备份当前文档
    
59. End Sub
    
60. 
    
61. 
    
62. '要取消在三分钟后自动调用 AutoRunMacro 宏，请执行以下代码：
    
63. 
    
64. Private Sub StopScheduledMacro()
    
65.     Application.OnTime Now + TimeValue("00:03:00"), "AutoRunMacro", , False
    
66. End Sub
    

复制代码

f8b1987

这种方式只是保留VBA操作前的状态，和原始的撤销还是有差别的

过客fppt

f8b1987 发表于 2023-8-8 08:17
这种方式只是保留VBA操作前的状态，和原始的撤销还是有差别的

是的，我的本意是每一次打开表格操作前都先保存备份一下

zaojiashi75

我一般是运行后如果没有达到预期，就不保存关闭。对付vba不能撤销，我能做到的就是vba尽量不要出错！所以异常处理代码有时候比功能处理代码还要多得多。

zaojiashi75

zaojiashi75 发表于 2023-12-1 07:04
我一般是运行后如果没有达到预期，就不保存关闭。对付vba不能撤销，我能做到的就是vba尽量不要出错！所以异 ...

有时候进行了很多操作再运行vba，如果不保存关闭会丢失掉之前的非vba操作。为避免出现这种情况，在vba代码前加一句save当前工作簿。

楼主的代码很不错，保存和打开文件思路很清晰。

过客fppt

zaojiashi75 发表于 2023-12-1 07:11
有时候进行了很多操作再运行vba，如果不保存关闭会丢失掉之前的非vba操作。为避免出现这种情况，在vba代 ...

谢谢评价。

Enocheasty

对于影响比较大的，我直接在程序界面做了一个撤销按钮，撤销上一步操作影响。不过确实有点麻烦，每个小功能都要搞个撤销。

过客fppt

Enocheasty 发表于 2024-1-30 10:19
对于影响比较大的，我直接在程序界面做了一个撤销按钮，撤销上一步操作影响。不过确实有点麻烦，每个小功能 ...

因为按Ctrl+z无法撤销，我以为是撤销不了宏的操作的，没想到可以用按钮撤销

Enocheasty

过客fppt 发表于 2024-1-30 15:05
因为按Ctrl+z无法撤销，我以为是撤销不了宏的操作的，没想到可以用按钮撤销

哈哈，我的表达不清楚，是Excel编程操作是通过系统无法撤销的。我的撤销按钮的意思，我自己写了撤销的程序。

过客fppt

Enocheasty 发表于 2024-1-30 16:34
哈哈，我的表达不清楚，是Excel编程操作是通过系统无法撤销的。我的撤销按钮的意思，我自己写了撤销的程 ...

原来如此，好厉害