Query_Closeの取り消し引数が常にTrueと等しい場合に、ユーザーフォームを閉じる方法は？

Question

私が誤って閉じることができなかったユーザーフォームを作成したとき、私は今日、ユーザーフォームを編集した

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    ' Logic that always evaluated to: 
    Cancel = True 
End Sub 

ShowModalプロパティをTrueに設定されているので、それはですので、あなたがExcelやVBEと対話することはできません一見フォームを殺すことは不可能です。 CloseMode（Alt-F4など）に関係なく、ロジックは常にCancel = Trueと評価されます。最終的な解決策は、ブックを保存し、タスクマネージャを使用してExcelを終了することでした。すべての情報が正しく保存されているので、これはうまくいきましたが、これはむしろ避けたいと思うかなり汚い解決策です。

これらの質問：不適切それが解消されないいくつかのエラーが発生し、ブックを閉じると

• Closing a Userform with Unload Me doesn't work
• Can't close userform

契約。

Cancelは常にQuery_CloseイベントでTrueに等しいとき、ユーザーフォーム（それがすでにロードされている）を閉鎖する方法はありますか？

Answer 1

エディタを開いても、コードを停止することはできますが、編集時には常にそうでなければなりません。それ以外に、タスクバーからExcelを閉じることができます。右クリックすると、変更が加えられた場合、保存プロンプトが表示され、キャンセルするとフォームが消えます。
しかし、プログラミングは賢明ではありません。これらの種類のフォームは作成されるべきではありません。

Answer 2

フォームの右上隅に赤いXが表示され、これを押すとフォームを閉じることができます。このようなボタンなしでフォームを作成した場合は、コマンドボタンをクリックして、このボタンをクリックしてプロシージャを実行する必要があります。その手続きには、Me.Hideという行が含まれていなければなりません。それはフォームを閉じますが、メモリ内に残り、Showコマンドで呼び出すことができます。 フォームのコードにUnloadコマンドを使用しないでください。このコマンドは、フォームを開くコードに配置する必要があります。順序は、フォームを作成して表示し、非表示にして最後にアンロードすることです。 ShowとHideの間にフォームが制御されます。