パスワード入力画面をスキップするために(AccessVba)

ご質問させて頂きます。
win7/access2010/vbaです。

excelを開くときに
パスワード入力画面をスキップするために
以下のページを参考にしてみました。
http://officetanaka.net/excel/vba/tips/tips55.htm

ところが、
SendKeys "{ESC}"
は、win7では使用できなくなっているらしく動きませんでした。


代わりに、SendInputや、KeybdEvent、Me.Undoが使えるそうですが

やってみましたが、なかなか、うまく動きません。


解決策はありませんか？

－－－－－－－－－－

'インスタンスの作成
Set oApp = CreateObject("Excel.Application")

oApp.DisplayAlerts = False '確認メッセージの非表示
oApp.Visible = False

MyFile = Dir(CurrentProject.Path & "\取り込みフォルダ\*.xlsx")

Do Until MyFile = ""

Set oWkb = oApp.Workbooks.Open(CurrentProject.Path & "\取り込みフォルダ\" & MyFile)

↓↓ここが問題
SendKeys "{ESC}"

・
・
・

質問者からの補足コメント

• ご回答ありがとうございますッ☆
  全部のファイルにパスワードがあればいいのですが
  パスワードがあったりなかったりするので、
  
  パスワードがないファイルについては
  スキップしたいのですが…。

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/06/21 17:04

• ご教授ありがとうございますッ☆
  リンク先を拝見させて頂きました。
  ファイルのパスワードの識別ではなく
  シート保護のパスワードの識別のようですが…。
  
  もしもファイルの方をご存じでしたらご教授頂けると嬉しいです。

  No.2の回答に寄せられた補足コメントです。 補足日時：2017/06/22 10:31

No.2 ベストアンサー 回答者： ShowMeHow 回答日時： 2017/06/21 17:17

http://www.moug.net/tech/exvba/0040004.html
保護されているかどうか調べて、分岐させればよいと思います。

この回答へのお礼

いろいろとありがとうございました。
こちらで解決しました。
http://yamav102.cocolog-nifty.com/blog/2015/08/p …

お礼日時：2017/06/22 11:36

No.1 回答者： ShowMeHow 回答日時： 2017/06/21 16:38

workbooks.open の第五引数で、パスワードの指定できませんか？

http://excel-ubara.com/excelvba1/EXCELVBA363.html