質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

1691閲覧

Excelでアクティブウィンドウが勝手に切り替わらないようにしたい

Marino_Y

総合スコア2

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

1クリップ

投稿2022/11/25 06:47

前提

ExcelのVBAでバッチを呼び出し、
その処理結果をメッセージボックスと画面に表示させるシステムを作成しています。
バッチ実行中は実行中画面を表示し、その時にユーザが画面入力できないように
Application.Interactive = Falseを追記したところ、メッセージボックス表示前にExcelから直残まで開いていたウィンドウ(エクスプローラやchromeなど)へ勝手に切り替わる現象が発生するようになりました。

実現したいこと

Application.Interactive = False 時に、メッセージボックスを表示するとき、アクティブウィンドウが勝手に切り替わらないようにしたい。

発生している問題・エラーメッセージ

別ウィンドウを開き、Alt+TabでExcelへ戻った直後に起きやすい。

該当のソースコード

VBA

1Sub TEST() 2 3 Application.Interactive = False 4 5'実行中画面へ遷移 6 Workbooks("TEST.xlsm").Activate 7 Worksheets("RUNNING").Activate 8 9 Application.ScreenUpdating = False 10 11'接続確認バッチ(ping)を起動 12 TaskID = Shell("c:\test\ping.bat", 2) 13 hProc = OpenProcess(PROCESS_ALL_ACCESS, False, TaskID) 14 If OpenProcess(PROCESS_ALL_ACCESS, False, TaskID) <> vbNull Then 15 Call WaitForSingleObject(hProc, INFINITE) 16 CloseHandle hProc 17 End If 18 19'接続できない場合、エラー画面へ遷移 20 FILECHK = Dir("c:\test\PINGERR.txt", 0) 21 DoEvents 22 If FILECHK = "PINGERR.txt" Then 23 Workbooks("TEST.xlsm").Activate 24 Worksheets("ERROR").Activate 25 MsgBox "ERROR!!" '←ここで切り替わらないようにしたいです。 26 DoEvents 27 Application.ScreenUpdating = True 28 Application.Interactive = True 29 End 30 Else 31 MsgBox "Nomarl End!" '←ここで切り替わらないようにしたいです。 32 End If 33 34'接続できた場合、OK画面へ遷移 35 Workbooks("TEST.xlsm").Activate 36 Worksheets("OK").Activate 37 38 Application.ScreenUpdating = True 39 Application.Interactive = True 40 41 42End Sub 43

試したこと

1.Application.Interactive = Falseをコメント化。
2.「DoEvents」をApplication.Interactive = False、TrueやMsgBox "ERROR!!"の前に入れる。
3.メッセージボックス表示前に「sleep」で待ち時間を入れる。
1のみ効果がありましたが、ユーザが操作できる状態になってしまうため、他の方法を探しています。
入力や画面遷移の制御を行いつつ、アクティブウィンドウが切り替わらないようにするにはどうしたらいいでしょうか。解決策をご存じの方いらっしゃいましたら、ご教授いただけると嬉しいです。

補足情報(FW/ツールのバージョンなど)

環境は、
Windows10のExcel2019を使用しています。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

pig_vba

2022/11/29 02:36

試したことないのでうまくいくか謎ですが、一回試しにAppActivateでウィンドウ自体の最前面化をしてみるというのはどうでしょうか? http://www.fingeneersblog.com/1814/
Marino_Y

2022/11/30 08:09

コメントありがとうございます。 エラー画面へ遷移する前にウィンドウの最前面化を挿入してみましたが、 画面の切り替えは発生してしまいました。 Shell("c:\test\ping.bat", 2)の2を0に変更したら発生しなくなりました。 解決策を考えていただきありがとうございました。
guest

回答1

0

自己解決

Shell("c:\test\ping.bat", 2)の2を0に変更したら発生しなくなりました。
また、ユーザからの入力の制御としてシートの保護も有効でした。

投稿2022/11/30 08:10

Marino_Y

総合スコア2

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問