求助大神：要在点击保存后关闭工作表前之间加入一个倒计时的事件

weiliaos

各位大大，需要在点击保存后关闭工作表前之间加入一个倒计时的事件

有两个要求

1.关闭工作表前点击保存才运行事件，点击不保存则不运行直接关闭。

2.平时操作只点击保存则不运行该事件

因为用到了icloud的云盘来做为云存储工具，好用是好用但是，因为同步太快，会经常出现文件损坏和乱码的现实，后来发现是在关闭工作表时，保存和退出同时进行，然后创建的临时文件会串到主文件替换掉主文件造成的，所以需要在点击保存后关闭工作表前之间加入一个倒计时的事件（让工作表先保存合并同步后在关闭工作表，即可解决此问题）

然后我用到了rivate Sub Workbook_AfterSave(ByVal Success As Boolean) 加是加上倒计时功能了，不过在平时操作一半点保存(还不想退出工作表）也会弹出倒计时，研究了好久没有解决，故来求助，求大大们帮帮忙

附件密码0 工作表密码0

weiliaos

求助求助求助求助求助求助求助求助

weiliaos

求大神指点迷津

走过路过嫑错过

期待学习

龍膽草

把Private Sub Workbook_AfterSave(ByVal Success As Boolean)这段代码删了，改个事件，你看下，是这意思吧。

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. On Error Resume Next
   
3. Dim t
   
4.         With TuiChuDen
   
5.             t = Timer
   
6.             .Caption = "开始缓存"
   
7.             .Show 0
   
8.             Do Until Val(.Label2) = 0
   
9.                 If Timer - t > 1 Then
   
10.                     t = Timer
    
11.                     .Label2.Caption = Val(.Label2) - 1
    
12.                 End If
    
13.                 DoEvents
    
14.             Loop
    
15.             If Val(.Label2) = 0 Then .Caption = "缓存结束"
    
16.         End With
    
17. Call goYingWen
    
18. End Sub

复制代码

weiliaos

龍膽草 发表于 2020-5-22 16:39
把Private Sub Workbook_AfterSave(ByVal Success As Boolean)这段代码删了，改个事件，你看下，是这意思吧 ...

感谢您的回复，Workbook_BeforeClose 已经尝试过了，只能点关闭按钮后直接自动保存然后触发倒计时，但是这样有个问题就是假如本次编辑出现了数据出错，无法选择不保存退出，来实现回退的作用......

如果不添加ThisWorkbook.Save，那倒计时就会出现在弹出退出选项窗口前