VBAによるIE操作について、ログイン語の認証。

質問

作りたいマクロは、
１、企業の製品リストページにアクセスする。
Sub pncheck()
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate ("https://w3-06.xxxxxxxxx.wss")
２、すでにパスワードはIE上に記憶されているので、ログイン自体はできるのですが、
「This page contains both secure and nonsecure items. Do you want to display non-secure item?」というメッセージボックスが出てきて、「yes」をクリックする必要があります。
これは恐らく日本語では、「要求したページは暗号化されていますが、暗号化されていない項目を含んでいます。あなたがこのページで表示や入力する情報は第三者が簡単に傍受できます。」という、よくログイン後に現れるメッセージボックスだと思います。
３、その後、partsno_01から、partsno_20までのテキストボックスに、エクセルのセルA1から、A20までにある製品番号を入力し、データをsubmitします。
４、ヒットした製品のリストがテーブルとして表示されるので、それをエクセルに貼り付ける。

というものなのですが、
このログイン後の認証はどうすればいいのでしょうか？

回答No.1

DOUGLAS_

＞暗号化されていない項目を含んでいます。
＞情報は第三者が簡単に傍受できます。
ではなくて、
----------------------------------------
このページには、安全なHTTPS接続を使用しないで配信されるコンテンツが含まれており、Webページ全体のセキュリティを損なうおそれがあります。セキュリティで保護されたWebページコンテンツのみを表示しますか?
----------------------------------------
ではないかと思われますが、下記設定で回避できないでしょうか？

１）Internet Explorer の [ツール(T)] - [オプション(O)] で [インターネット オプション] ダイアログ を開きます。
２）[セキュリティ] タブ - [レベルのカスタマイズ(C)...] をクリックします。
３）[セキュリティ設定 - インターネット ゾーン] ダイアログ - [設定] の一覧から [ダウンロード] の直前にある [その他] - [混在したコンテンツを表示する] の「有効にする」の ラジオボタン を オン にして [OK] - [OK] します。

下記ブログに図入りで説明があります。
●混在したコンテンツを表示する
http://claimant.cocolog-nifty.com/blog/2008/09/post-6de6.html

＃まぁ、インターネット オプション の設定をそういうように限定してお使いになりたくない場合は振り出しに戻りますが．．．。

お礼

ありがとうございます。
ただ、実はもうそれをすでに試したあとなんです。

補足

もし、IEの設定の中に方法がないならば、
すでにすでにその認証を終えた後のページをVBAで操作するということは可能なのでしょうか？