パスワード保護されたExcelブックを開かずにセル値を取得したい

Question

パスワードを設定したExcelブックを、開かずにセル値を取得したいと考えて、ExcuteExcel4Macroのメソッドを記述したマクロを実行させると、
パスワードを聞いてくるダイアログ画面が出てしまう。

そこで、ダイアログ画面が開いたときにパスワードをセット、あるいはダイアログ画面表示させるにパスワードを渡すスクリプト、どうやって書いたらいいでしょうか？

ちなみに、パスワードを設定していないExcelブックでは、望み通りExcuteExcel4Macroのメソッドを記述したマクロはセル値を取得し、別シートにコピーできました。
パスワードはシート毎に異なるものを配布してあり、その数は120ブックくらいあります。

Answer 1

以下のような方法でどうでしょうか。複数の多量のファイルでは試していませんが、１ファイルでは
パスワードを入力する画面は開かずにデータを取得できました。
xxxxはExecuteExcel4Macroで読み込むファイルのパスワードです。

Application.SendKeys "xxxx"
Application.SendKeys "{Enter}", True
ExecuteExcel4Macro(・・・・・)

Comments

[eiwa]

早速にご回答いただきありがとうございます。
こちらのSendKeysの方法も試してみたのですが、ダイアログは相変わらず出てきてしまい...。

[eiwa]

http://www.excel.studio-kazu.jp/kw/20060114074813.html

で紹介されているように、やはりOpenメソッドを使わないといけないんですかね？

[tatsu99]

すみません。excelのバージョンにより動作がことなるのかもしれません。
当方、Windows7（64bit） excel2007です。この環境では、画面が一瞬ちらつきますが、うまくデータが取得できています。お役にたてず、申し訳ありません。

[eiwa]

なるほど、その環境では残念ながら置いていないマクロなので...。
Win10でExcel2016です。

[tatsu99]

>やはりOpenメソッドを使わないといけないんですかね？
それを使えば、確実ですが、その場合は、
Application.ScreenUpdating = False
をマクロの先頭にいれて、画面表示の抑止を行ったほうが良いかと。

Answer 2

tatsu99 さんのアドバイスを試してみたら、ちゃんと実現できました！
ありがとうございます。

ロジックは、
TgtDvs = "'" & shDir & "[" & buf & "]シート'!R4C3"
pass = TgtSheet.Cells(i, 2).Value
Application.SendKeys pass
Application.SendKeys "{Enter}", True

TgtSheet.Cells(i, 3) = ExecuteExcel4Macro(TgtDvs)

てな感じですんなり開かずに（ダイアログ画面は実際は一瞬で開いて閉じて...を繰り返してましたが）終了しました。

Comments

[imihito]

SendKeysを使う場合、パスワードが利用者にバレる恐れがあるな…と思ったのですが、記載の運用なら問題なさそうですね