Excel2013のプログラミングについて

Question

Excel2010までは問題のなかった内容です。

たとえばBook1から、Book2を開きます。

その際にBook1からBook2を開くフォームを出し、Book2を開きます。

その後開いたBook2のリボン部分の操作ができません。またブックを閉じるボタンもクリックできません。

一度Book1をマウスでクリック後にBook2に戻ると操作できるようになります。

どうしてでしょうか？

※Book2を開くコード

Private Sub CommandButton1_Click()
Workbooks.Open ThisWorkbook.Path & "\Book2.xls"
Unload Me
End Sub

Answer 1

どうしてかは解りませんが、

Application.ActiveWindow.Caption
や
Application.ActiveWorkbook.Name
等を
Debug.Print
して比較すると何かわかるかもしれません。

Answer 2

Excel2013ではWordの様に複数のファイルを開いた場合別々のウィンドウで開かれるようになりました。
その関係の弊害かなと思います。

ファイルを開く前にUnloadすれば問題ないようです。

Private Sub CommandButton1_Click()
 Unload Me
 Workbooks.Open ThisWorkbook.Path & "\Book2.xls"
End Sub

プログラム上先にUnloadするのが問題あれば、Hideで非表示にして後でUnloadすればいけそうです。

Private Sub CommandButton1_Click()
UserForm1.Hide
Workbooks.Open ThisWorkbook.Path & "\Book2.xls"
Unload Me
End Sub