お世話になります。いろいろ検索しているのですが
どうしてもできないのでまた質問させていただきます
[教えてくん]で申し訳ないです。

VB6というかVBAです
access2013で、webbrowserを貼り付けてとあるwebページのcsvファイルを
ダウンロードしようとしています。
vbaでダウンロードのボタンを押すところまではできています。

すると、webbrowserに
「セキュリティ保護のため、このサイトからコンピューターにファイルをダウンロードされないよう、
webブラウザーでブロックされています。オプションを表示する,,,」
のポップアップを表示します。

これをどうやって押したらいいか悩んでいます。
(1)webbrowser側にこのポップアップを回避するオプションがあるのか
(2)外部プログラムで制御できるのか

(1)があれば一番楽なのですが、現在わからないので
(2)の方法を考えています。
このポップアップウインドウをつかむところまではできています
FindWindow API、GetWindow API を使って
ParentWnd = FindWindow(vbNullString, "Accessのウインドウ")
MiddleWnd = GetWindow(ParentWnd, 5) '下へ
'これを繰り返し
'最終的にMiddleWndに[セキュリティ保護]のウィンドウハンドルを取得
MiddleWnd = GetWindow(MiddleWnd, 5) '下へ

'クリックする
lngRet = SendMessage(MiddleWnd, WM_LBUTTONDOWN, 0, 0)
lngRet = SendMessage(MiddleWnd, WM_LBUTTONUP, 0, 0)

そうすると実際のウィンドウでは、クリックした状態の反転画面になるのですが
次のポップアップ
---
ファイルのダウンロード
危険性の説明
デスクトップを開く
通知バーのヘルプ
デスクトップを開く
---を表示してくれないのでどうしたものかと
実際のウィンドウでも[セキュリティ保護]の画面をクリックすると
ファイルのダウンロードポップアップを開きますが
画面を抜けると消えてしまうので
このような方法ではだめなのかなと思っています

今回のページとはまったく関係ないページですが
ダウンロードリンクを押したときに
画面下部に[****から***.csvを開くか、または保存しますか]ポップアップを表示する
ことがありますが、これは、GetWindowてボタンを取得して押すことが可能です。

情報追加です。
呼び出し側をaccessから、VB6に変更して作成したところ
「セキュリティ保護のため、このサイトからコンピューターにファイルをダウンロードされないよう、webブラウザーでブロックされています。オプションを表示する,,,」
のポップアップは表示されず
「ファイルのダウンロード - セキュリティの警告」になり
これはButtonのハンドルを捕まえて押すことができました
vbaの設定の問題でしょうか

> 「セキュリティ保護のため、このサイトからコンピューターにファイルをダウンロードされないよう、
> webブラウザーでブロックされています。オプションを表示する,,,」

これかな。エントリーを見ると、MSACCESS.EXE や EXCEL.EXE が並んでいました。
https://technet.microsoft.com/ja-jp/library/cc748964.aspx

魔界の仮面弁士様　ご回答ありがとうございます。
頂いた情報ページを拝見しましたが

> これかな。エントリーを見ると、MSACCESS.EXE や EXCEL.EXE が並んでいました。
> https://technet.microsoft.com/ja-jp/library/cc748964.aspx
エントリーというのはどこにでしょうか。
また
URLACTION_AUTOMATIC_DOWNLOAD_UI　から
CoInternetSetFeatureEnabled　あたりが関係あるのかなと検索してみましたが
もう少しヒントをいただけないでしょうか。

> > これかな。エントリーを見ると、MSACCESS.EXE や EXCEL.EXE が並んでいました。
> > https://technet.microsoft.com/ja-jp/library/cc748964.aspx
> エントリーというのはどこにでしょうか。

自PC のレジストリを見ると、FEATURE_RESTRICT_FILEDOWNLOAD キーの下に、
MSACCESS.EXE という DWORD値 0x00000001 が登録されていた、ということです。


> もう少しヒントをいただけないでしょうか。

上記の登録が無ければ、VB6 と同じように動作するかも知れませんし、
登録したままにするのであれば、CoInternetSetFeatureEnabled API を
呼ぶ必要があるのだと思いますが、当方では未検証なので保証はできません。

技術的なところについては、英語版 MSDN の "URL Acition Flags" や
"INTERNETFEATURELIST" の項を参照してみて下さい。
(VBA 向けの具体的なサンプルがあるかどうかは把握していません)


とりあえず、URLACTION_AUTOMATIC_DOWNLOAD_UI ( = &H2200 ) の例では
無いですが、以下のスレッドが足掛かりになるかもしれません。
VBA ではなく VB.NET のコードですけれども…。
http://dobon.net/vb/bbs/log3-46/27560.html

魔界の仮面弁士様、お返事ありがとうございます
いろいろやってみましたが今回は手に負えない感じですね。（涙)

vb6からはメッセージが出ないようなので、
ダウンロード処理をまるまるvb6のexeにして
access側からは、wshshell.runで呼ぶことにしました。