こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

投稿日時 - 2016-10-24 22:52:11

QNo.9247163

暇なときに回答ください

質問者が選んだベストアンサー

こんにちは
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

投稿日時 - 2016-10-25 08:52:02

お礼

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

投稿日時 - 2016-11-03 08:51:06

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

投稿日時 - 2016-10-24 23:37:40

お礼

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

投稿日時 - 2016-11-03 08:51:07

あなたにオススメの質問