ユーザーフォームを含むブックを閉じる

Question

Excelでユーザーフォームを作成しました。そのため、xlsmファイルを開くとユーザーフォームが開き、ブックが非表示になります。

しかし、[X]ボタンを使用してユーザーフォームを閉じると、保存せずにブックとユーザーフォームの両方を閉じるようにします。

今すぐユーザーフォームを閉じて、同じファイルをもう一度開こうとすると、既に開いていると表示されます。

コード起動

：

Private Sub Workbook_Open() 
Application.Visible = False 
Fordelinger.Show vbModeless 
End Sub 

閉じるコード：

Private Sub Fordelinger_Deactivate() 
Application.Quit 
Workbooks("EstimatDOK.xlsm").Close True 
End Sub 

を誰が助けることはできますか？ :)

Answer 1

あなたが近い（X）ボタンを制限するために以下のコードを使用することができます

または

Private Sub UserForm_Terminate() 
    ThisWorkbook.Close savechanges:=False 
    Application.Quit 
End Sub 

Answer 2

ユーザーフォームのコードウィンドウでこのコードを望んでいたかもしれ

Private Sub UserForm_Terminate() 
    ThisWorkbook.Close 
End Sub