ここから本文です

ExcelのUserformについて Book1のThisworkbookに Private Sub Workbook_Open()...

spa********さん

2014/8/419:19:35

ExcelのUserformについて

Book1のThisworkbookに
Private Sub Workbook_Open()
Application.visit=False
Userform1.show
End Sub

Book2のThisworkbookに
Private Sub Workbook_Open

()
Application.visit=False
Userform2.show
End Sub

というプログラムを作りました
Book1を開くとBook2が開かなくなります

どのようなプログラムを組めば
2つのBookを開いて同時にuserformを表示できますでしょうか?
Excelは2013を使用しています

よろしくお願いします

補足すみませんApplication.Visibleです

閲覧数:
135
回答数:
1

違反報告

ベストアンサーに選ばれた回答

kyo********さん

2014/8/512:11:07

申し訳ありませんが、Application.visitというプロパティ?がどのようなものかわかりませんでした。
調べてみましたがそのような文の意味がわかりませんでした。
Application.Visibleでしたらわかるのですが…
もし
Application.Visible=false
にしたのならフォームの
Private Sub UserForm_Terminate()'閉じるイベントで
Application.Visible=True
End Sub
にしないとフォームが開いた時にExcelのシートが見えなくなり、フォームを閉じた時Excelが開いているのに見えない事態になりかねません。
Application.Visible=falseのままなのが原因でBook2も「開いたのに見えていない」状態なのかもしれませんね。

  • kyo********さん

    2014/8/714:35:18

    補足を拝見しました。
    テストしましたがVisible=trueにしても駄目みたいですね。
    フォームのプロパティに「Showmodal」というのがtrueになっているかと思います。これをFalseにしておくと、フォームを開いたのと同時にシートや他の操作が可能になるので解決にはなるかと思います。
    お試しください。

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この回答は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる