打开启用宏的工作簿时，无法选择另一个工作簿

Question

我有一个启用了宏的工作簿，该工作簿使用代码设置计时器-这是一本共享的书，通常人们会在书中并离开办公桌等。它设置为在30分钟不活动后保存并关闭。 该功能似乎工作正常，但是我遇到的问题是，当我打开其他工作簿时，无法通过单击图块（Windows 7）或通过alt + tab来选择它们，唯一的移动方法是ctrl +偏移。 如果只有我使用工作簿就不会成为问题-有人知道为什么会这样吗？ 代码如下：

Private Sub Workbook_Open()
StartTimer
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
StartTimer
End Sub


Const idleTime = 1800 'seconds
Dim Start
Sub StartTimer()
Start = Timer
Do While Timer < Start + idleTime
DoEvents
Loop
Application.DisplayAlerts = False
ActiveWorkbook.Close True
Application.DisplayAlerts = True
End Sub

Answer 1

首先，我不确定您为什么会得到这种行为，但是请继续阅读。 我怀疑这与您的忙等待循环（带有DoEvents循环）有关，但这只是预感。 其他人可能会有（更好）的解释。

无论如何，也许使用Application.OnTime是更好的方法。 您可以安排某个操作在某个时间或间隔进行，并且可以选择取消和替换以前安排的操作。 您需要在Workbook_SheetChange事件处理程序中使用该工具。

简而言之，您可以执行以下操作：

1. 添加一个新例程以保存并退出工作簿，我们称之为： SaveWorkbookAndExit 。 稍后将由OnTime调用。

2. 替换您的Workbook_SheetChange事件处理程序的内容，如下所示：

    Application.OnTime Now + TimeValue("00:30:00"), _ "SaveWorkbookAndExit", _ Schedule:=False 

   这基本上安排了例程SaveWorkbookAndExit从现在开始30分钟内被调用。 请注意Schedule:=False它表示应清除/取消先前设置的过程，这一点非常重要。

3. 还将与上面相同的代码添加到Workbook_Open事件处理程序中。 但是，与上述不同，请注意，您应该在此处设置Schedule:=True ！

就是这样。 打开工作簿时，将计划一个新的SaveWorkbookAndExit操作。 然后，每次您进入Workbook_SheetChange ，先前计划的操作将被取消，并且将在其位置计划一个新的操作。

我没有测试过任何一个，但希望您能理解。 如果您需要我进一步解释，请告诉我。

Answer 2

Thank you again for the reply, I couldn't quite figure you where I was supposed to put what as I am new to this as I had said.  I did find a solution, or so it seems: 

In the "This Workbook" module I put: 

Option Explicit

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
ResetTimer
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ResetTimer
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ResetTimer
End Sub

and in the "user" module (i right click and add module), I used: 

Public CloseDownTime As Variant

Public Sub ResetTimer()
On Error Resume Next
If Not IsEmpty(CloseDownTime) Then Application.OnTime EarliestTime:=CloseDownTime, Procedure:="CloseDownFile", Schedule:=False
CloseDownTime = Now + TimeValue("00:00:30") ' hh:mm:ss
Application.OnTime CloseDownTime, "CloseDownFile"
End Sub

Public Sub CloseDownFile()
On Error Resume Next
Application.StatusBar = "Inactive File Closed: " & ThisWorkbook.Name
ThisWorkbook.Close SaveChanges:=True
End Sub

我的一半工作是意识到人们对“这个”或“那个”模块的含义-该代码可能有点过分，但似乎可行。 感谢您抽出宝贵的时间来帮助我，让我步入正轨！