需要知道什麼時候Excel工作簿窗口正在關閉

Question

我工作和excel插件，我需要打開同一工作簿的新窗口，以在不同的工作表中輸入數據。對於新窗口，我需要知道窗口何時關閉，以便對輸入的數據進行驗證。有沒有辦法知道工作簿窗口何時關閉？

謝謝。

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。