求帮忙修正我写的一个程序

yaojil

参考
  If Workbooks.Count > 1 Then   
        ActiveWorkbook.Close SaveChanges:=False    '
SaveChanges=False
    End If        If Workbooks.Count = 1 Then    '
        Application.Quit    '
        ActiveWorkbook.Close SaveChanges:=False    '
SaveChanges=False
    End If    '

120HYH

好佩服啊。

baby5200

原帖由 brdsz 于 2011-2-23 17:20 发表
没有加之前无法单独关闭本工作簿，加进去后可以关闭本工作簿，但它连整个其他excel工作簿也关闭了。

在网上找的，参考了一下，可以解决关闭本工作薄的问题：

Application.ontime now是取消不了的
一般最好这样
dim nextRun as date
.
.
nextRun=now+180   ‘3分钟后  假设啦

application.ontime nextRun, “theSub”


然后一定记得要
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime nextRun, "theSub", Schedule:=False
End Sub

[ 本帖最后由 baby5200 于 2011-2-24 14:26 编辑 ]

baby5200

Public RunWhen As Double
Public Const cRunIntervalSeconds = 300 ' 5分钟,300秒
Public Const cRunWhat = "TheSub"
Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
        schedule:=True
End Sub
Sub TheSub()
ThisWorkbook.Save
    StartTimer
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime earliesttime:=RunWhen, _
        procedure:=cRunWhat, schedule:=False
End Sub

Sub Auto_close()
    On Error Resume Next
    Application.OnTime earliesttime:=RunWhen, _
        procedure:=cRunWhat, schedule:=False
End Sub

Sub Auto_Open()
StartTimer
End Sub

baby5200

哈哈，3.00版了：
1 修改了 运行 其它程序时 无法自己关闭的BUG；  ’由 brdsz 完成
2 改进程序，以前是每10分钟提醒一次关闭表格，改进后为对表格无操作10分钟以后提示关闭表格； ’由 brdsz 完成
3 修改了 表格打开后，无法手动关闭的BUG。 ’由 baby5200 完成

有兴趣的朋友拿去测试哈，，看还有没有其它问题。。

[ 本帖最后由 baby5200 于 2011-2-24 14:27 编辑 ]

风云际会6

学习了，谢放邮

brdsz

非常好。但还有一个很大的问题，我测试了一下，如果我在表格中，输入了内容，回出现附件所示提示框。如果没有人去进行确认，无法自动关闭。

[ 本帖最后由 brdsz 于 2011-3-7 11:38 编辑 ]

brdsz

隐私问题警告在EH搜了一下，已解决，两个方法：
1、在选项---安全性---不要勾选个人信息
2、在保存语句之前加：ActiveWorkbook.RemovePersonalInformation = False

但是又有一个问题：在提示框出来之前的10秒钟开始，我的电脑EXCEL cpu占用了50%多的资源，而且在这10秒钟之中，你无法编辑这个工作簿，不知何故？

jztsky

我从头学到尾，虽然还看不太懂但是很刺激，期待你们继续研究啊，把程序修复好做出来分享~！

狂妄蛐蛐

谢谢分享，学习中