パスワードがかかってる場合どのようにＶＢＡで指定す

質問

Set cnEx = CreateObject("ADODB.Connection")

With cnEx
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Extended Properties") = "Excel 12.0"
.Properties("Data Source") = "C:\Users\\test.xlsm"
.Open
End With

ＶＢＡでこのコードでエクセルファイルを開く時に
パスワードがかかってる場合どのようにＶＢＡで指定すればいいでしょうか？

回答No.2

ushi2015 · ベストアンサー

こんにちは
ExcelのVBAで、でしょうか？
二度手間のような気がしてしまうかも知れませんが、最初に開いておかないと
ダメです・・・多分。
Sub test()
　　Dim cnEx As Object
　　Dim tBK As Workbook
　　Set tBK = Workbooks.Open("C:\Users\ユーザー名\test.xlsm", , , , "パスワード")
　　Set cnEx = CreateObject("ADODB.Connection")

　　With cnEx
　　　　.Provider = "Microsoft.ACE.OLEDB.12.0"
　　　　.Properties("Extended Properties") = "Excel 12.0"
　　　　.Properties("Data Source") = "C:\Users\ユーザー名\test.xlsm"
　　　　.Open
　　End With
　　'処理

　　'終了
　　cnEx.Close
　　tbk.Saved = True
　　tBK.Close
End Sub

お礼

ご回答ありがとうございます。

回答No.1

skp026

こちらのサンプルが参考になりそうです。
http://vba.doorblog.jp/archives/51301705.html

お礼

ご回答ありがとうございます。