엑셀 통합 문서 창이 닫힐 때를 알아야합니다.

Question

나는 추가 기능을 수행하고 있으며 다른 워크 시트의 데이터를 입력하기 위해 동일한 통합 문서의 새 창을 열 필요가 있습니다. 새 창에 대해 입력 된 데이터에 대한 유효성 검사를 수행 할 수 있도록 창이 닫힐 때를 알아야합니다. 통합 문서 창이 닫힐 때를 알 수있는 방법이 있습니까?

감사합니다.

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입니다.