シートへのD&Dを禁止にする

質問

• VBAでフォーム上のListViewにavi動画ファイルをD&Dすると、そのパスを読み取って、自動でプログラムを実行するマクロを作成しました。
• 途中でプログラムの実行を中断したりすると、そのavi動画ファイルをシート上にD&Dしたのと同じ状態になり、Excelでavi動画ファイルを開こうとしてしまいます。
• VBAかExcelの設定でシート上にファイルをD&Dしても読み込まない設定にする方法を教えてください。

回答No.3

ap_2

Dropでファイルを開くのは基本機能なので、禁止は難しそうですね。。。

おそらく、どこかでD&Dをキャンセルしているはずです。その前に処理が止まることで問題が起きるのなら、なるべくその処理を先に持ってきたらいいです。
まずは、どこまで進めばOKなのか確認してみてください。

Object.Clearみたいな方法でキャンセルされるなら、さっさとパス取得＆クリア。もし、Dropイベントを完全に抜けないとダメなら、Application.Ontimeでメイン処理を遅延実行。Ontimeはスマートでよいかも。

'Ontime使用例　main終了直後にhogeが実行される
Sub main()
　Application.Ontime Now, "hoge"　'並行処理されないので時間はNowでいい
　MsgBox "main"
End Sub
Sub hoge()
　MsgBox "hoge"
End Sub