Question

我正在工作并且excel addin，我需要打开同一工作簿的新窗口，以在不同的工作表中输入数据。对于新窗口，我需要知道窗口何时关闭，以便我可以对输入的数据进行一些验证。有没有办法知道何时关闭工作簿窗口？

感谢。

Answer 1

看一下这个文件： http://support.microsoft.com/kb/213566

创建模块和类模块。代码如下。

课程模块代码：

Public WithEvents appevent As Application

Dim windowsCount As Integer


Private Sub appevent_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
If windowsCount <> Application.Windows.Count Then
    MsgBox "You closed a window"
End If
End Sub


Private Sub appevent_WindowDeactivate(ByVal Wb As Workbook, ByVal Wn As Window)
windowsCount = Application.Windows.Count
End Sub

模块代码：

Dim myobject As New Class1


Sub Test()

Set myobject.appevent = Application

End Sub

这个工作簿的处理程序：

Private Sub Workbook_Open()
Test
End Sub

Answer 2

您可以处理BeforeClose事件。使用VBA的示例可用here。

需要知道excel工作簿窗口何时关闭

2 个答案: