ブックをCloseまたはQuitで閉じると他のユーザーフォームが消えてしまう。

ブックをCloseまたはQuitで閉じると他のユーザーフォームが消えてしまう。

お世話になります。
Excel2000、2013でツール開発をしているのですが、タイトルのようにユーザーフォームが消えてしまって困っています。
助言頂ければと思います。

Book1
　UserForm1…Book2を開くボタンを実装してあります。単純にWorkbooks.openです。

Book2
　UserForm2…Book2のOpenにてShowされるユーザーフォームです。

Book1のUserForm1からBook2のUserForm2をShowさせた後、
UserForm2の閉じるボタンにて「Application.quit」と「ThisWorkbook.Close」を実行させて、
Book2を閉じてまたUserForm1に戻る処理を行いたいのです。

ところが、quitとcloseを実行するとBook2は問題なく閉じるのですが、
UserForm1までもが消えてしまいます。

UserForm1を消さずに戻る方法は無いのでしょうか？？

No.3 ベストアンサー 回答者： tatsu99 回答日時： 2017/01/03 22:06

No2です。

こちらで確認した方法です。
Book1のUseform1のコード
--------------------------------
Private Sub CommandButton1_Click()
Workbooks.Open "d:\goo\excel\book107b.xlsm"
Application.Run "book107b.xlsm!Macro1"
Workbooks("book107b.xlsm").Close
End Sub

（book2相当）book107b.xlsmの標準モジュール
----------------------------------
Public Sub Macro1()
UserForm2.Show
End Sub

（book2相当）book107b.xlsmのUserForm2のコード
-------------------------------------
Private Sub CommandButton1_Click()
Unload Me
End Sub

この回答へのお礼

tatsu99さん

分かりやすくありがとうございますっ！
こちらでも同じようにやってみましたが、一番すんなり実装できそうな感じになりましたので、もう少し自分なりに熟考したいと思います。

しかし、なぜユーザーフォームが消えるのか・・・。
謎ですよね（＾＾；
そもそもExcel自体、複数ブック連携を前提になっていないのでしょうか。

ともかく、大変参考になりました。
ありがとうございましたっ！

お礼日時：2017/01/03 22:59

No.2 回答者： tatsu99 回答日時： 2017/01/03 11:53

Userform2では

unload me
のみ行い、
userform1でopenでshowさせた後、（Userform2から戻ったあとに）
userform1でbook2をcloseさせてはいかがでしょうか。

この回答へのお礼

tatsu99さん

回答ありがとうございます。

現状のプログラムですと、Book2のopenにてUserForm2をShowしているので、Unloadした後が取得できません。

Book1のUserForm1ではBook2を開くだけの処理をしているので、UserForm2を開くところまで実行するように処理を変更すれば行けるかもしれませんねっ！
早速試してみたいと思います。

お礼日時：2017/01/03 21:24

No.1 回答者： jmuiny 回答日時： 2017/01/03 09:31

やってみました。

Application.quit　は無理だと思いましたが、ThisWorkbook.Close　でも前のフォームは消えてしまいますね。
Book2は閉じずに背面に隠し、Book1のフォームを閉じるタイミングで閉じるしかなさそうです。

Book2のUserForm2の閉じるボタンには
Unload Me
Workbooks("Book1.xlsm").Activate
だけ記載する事で、UserForm1は閉じなくなります。

もっと難しい方法（APIなど利用？）で解決方法があるのかもしれませんが。

この回答へのお礼

jmuinyさん

ありがとうございます。
本当は閉じれた方が見栄え的な話だとか諸々な理由でよいのですが、それ以外に方法がなさそうであればやむを得ないと思うので参考にさせていただきますっ！

お礼日時：2017/01/03 21:20