Question

I am working and excel addin and I am under the need to open a new window of the same workbook to enter data in a different worksheet. For the new window, I will need to know when the window is being closed so I can do some validations on the data entered. Is there a way to know when a Workbook window is being closed?

Thanks.

Answer 1

Take a look at this document:
http://support.microsoft.com/kb/213566

Create a Module and a Class Module. Code is below.

Class Module code:

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

Module Code:

Dim myobject As New Class1


Sub Test()

Set myobject.appevent = Application

End Sub

And this handler for the workbook:

Private Sub Workbook_Open()
Test
End Sub