マクロでExcelパスワードを入力する方法

質問

教えて頂きたいのですが、
今Excelのフォームボタンにマクロを使って、
別のExcelファイルを開けるように設定していますが、
そのファイルにパスワードを掛けており、フォームボタンを押すと、
まず、そのパスワード入力のダイアログが出ます。
それを、フォームボタンを押したときのマクロに組み込み、
パスワード入力のダイアログを出さずに開く事って可能でしょうか？

現在のフォームボタンに登録しているマクロの記述は下記の通りです。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub Macro11()
'
' Macro11 Macro
' マクロ記録日 : 2008/9/25 ユーザー名 : ************
'

'
Range("I29").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

I29にハイパーリンクにてアドレスを入力しているだけのものです。

宜しくお願いいたします。

回答No.1

misatoanna · ベストアンサー

"Worksheet_FollowHyperlink" モジュールや "Selection.Hyperlinks(1).Follow"
コマンドでパスワードの受け渡しが扱えるかどうかわかりませんので、代替案です。

> I29にハイパーリンクにてアドレスを入力しているだけのものです。

セルに指定されているファイルを開くだけなら、
1.セルにファイルのフルパスを入力しておいて、
2.コマンドボタンに次のように記述します。
　　"PASSWORD" の部分は、実際のパスワードを "　" で囲みます。

Sub Test()
　Dim FName
　FName = Range("I29").Value
　Workbooks.Open FName, , , , "PASSWORD"
End Sub

お礼

どうもありがとうございました。
ばっちり出来ました。
本当に助かりました。
また、何かありましたら宜しくお願いいたします。