ユーザーフォームマクロVBAでXにアクションを追加

Question

私は別のブック（test.xlsm）からソースを取得するマクロにuserformを持っています。だから私はそれを表示せずに、このブックを開くために、このコードを使用しました。マクロの実行、ユーザーフォームがアップ示され、バックグラウンドでもtest.xlsmので

Const fromFile = "C:\Users\excel\test.xlsm" 
Dim srcBook As Workbook 
Set srcBook = 
Application.Workbooks.Open("C:\Users\excel\test.xlsm", _ 
UpdateLinks:=False, _ 
ReadOnly:=True, _ 
AddToMRU:=False) 

。ただし、右上隅に "X"記号を使用してユーザーフォームを閉じるユーザーがいます。ソース（text.xlsm）が正しく閉じられなかったためにエラーが発生することがあります。

ユーザフォームの「X」ボタンをクリックした場合にアクションを追加する方法があるのでしょうか？だから私は、ユーザーが "X"ボタンをクリックした場合、バックグラウンドで実行されるtest.xlsmを閉じたいと思う。

Answer 1

フォームのQueryClose - イベントを使用することができます。 // stackoverflowの：あなたはtrueにCancelを設定すると、しますない近い

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    Workbooks("test.xlsm").close 
End Sub 

Answer 2

これは、閉じるように要求されたときに行動できるようにするには、ユーザーフォームに必要なものです：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    Debug.Print "You Exited" 
End Sub 

X上のユーザーがクリックしたらあなたは「あなたが終了」に印刷見るでしょう即時ウィンドウ。