VBAによるIE立ち上げ時のJavaScript無効化設定について

Question

・実現したいこと
1.エクセルのVBAを起動するとブラウザ（IE）を立ち上がる
2.JavaScriptを無効化する
3.指定されたサイトに接続する
4.特定の処理を行う
5.JavaScriptを有効化する

（注）
ユーザーがブラウザを直接操作し、JavaScriptを無効化するのではなく
VBAが無効化する

・困っていること
実現したいことにおける2及び5が実現できない

・実行環境
Windows7 Enterprise SP1
Microsoft Office Professional Plus 2010
Excel 2010

VBAではInternetexplorer.Applicationのオブジェクトを作成し、IEを起動していますが、JavaScriptの無効化及び有効化を実現するコードがわかりません。

実現する方法はそもそも存在するのでしょうか？

Answer 1

Google先生に伺いました。

"インターネットオプション コマンド変更" で検索
インターネットオプションの設定をコマンド等で行うには？

と、言うことで、どうやらレジストリを変更することで、出来るらしいです。

JavaScriptの有効／無効の設定方法は？

インターネットオプションでJavaScriptの有効／無効は、
スクリプト ＞ アクティブスクリプト を変更することで可能。

レジストリキーは、どこ？

さらに "インターネットオプション アクティブスクリプト レジストリ" で検索
上級ユーザー向けの Internet Explorer セキュリティ ゾーン関連のレジストリ エントリ

これにより、

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\<ZoneNumber> 

の中に各設定があり、

値        設定
------------------------------
0        マイ コンピューター
1        イントラネット
2        信頼済みサイト
3        インターネット
4        制限付きサイト

<ZoneNumber> は 3 が該当。

1400     スクリプトの実行:アクティブ スクリプト 

との事で、regedit.exeで、該当箇所を見ると、インターネットオプションを手動で変更すると、
値が変わることが確認できます。

VBAでの設定方法

ふたたびGoogle先生にお伺い。"vba レジストリ 設定" で検索。

T'sWare Access Tips #283 ～任意のレジストリキーにアクセスするには？～

これによるとWIN32APIを使用して、書き換えが可能なようです。

※ここには記載がないですが、たぶん管理者モードでVBAを実行する必要がありそうです。

実際のソースコードが添付できませんが、参考までに。

Answer 2

イントラネットでなくインターネット上のサイトに接続するのであれば、
該当のサイトを「インターネット オプション」セキュリティの制限付きサイトにでも登録すれば、
VBA側でコントロールせずとも
JavaScriptの実行などは止められそうな気がします。

Comments

[marseille]

コメントありがとうございます。
「実現したいこと」の注項目に記載しましたとおり、ブラウザを直接操作し無効化する手段は解決方法としては除外しております。