Excel VBA ブックが閉じれない
Excel2016を使用してVBAを使用しています。
VBA初心者ですが、よろしくお願いします。
質問内容は以下になります。
EXCEL起動と同時にUserFormを表示させ、UserForm上のコマンドボタンから
ダイアログボックスを表示し、他ブックを開く処理なのですが、
他ブックを開くまでは問題ないのですが、他ブックが閉じれない状態になります。
Private Sub Workbook_Open()
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
各種処理
End Sub
Private Sub CommandButton1_Click()
Dim OpenFileName As String
SetCurrentDirectory (Worksheets(1).Cells(11, 3))
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
Workbooks.Open OpenFileName
End Sub
UserFormを閉じると開いたブックも閉じることが可能です。
タスクマネージャーから強制的に終了しようとすると、以下メッセージが出ます。
”開いているダイアログボックスがあるため、Microsoft Excel を終了できません。[OK]をクリックしてから、Microsoft Excelに切り替えてダイアログを閉じて下さい。"
UserFormを閉じないで他ブックを閉じるには、どうすれば宜しいでしょうか。
申し訳ございませんがご教授下さい、よろしくお願いいたします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_3_thumbnail_img_sm.png)
