Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34069 / 76732 ←次へ | 前へ→

【47878】Re:パスワード付ファイルのオープン方法
発言  ponpon  - 07/3/25(日) 9:54 -

引用なし
パスワード
   ▼かば さん:
>はじめまして。
>パスワード付ファイルのオープン方法で質問なんです。
>
>読み取りパスワードが掛かっているファイル(ファイルB)を他のファイル(ファイルA)から開く際に、Openメソッドの引数に、パスワードを指定して開くことができるかと思います。
>この場合のパスワードの指定なんですが、引数として直接パスワードを記載するのではなく、ファイルAを開く際に入力するパスワードを指定したい、つまり、Openメソッドの引数のパスワードを動的に扱いたいのですが可能でしょうか?
>(ファイルAとファイルBのパスワードは常に同じという前提です。)
>
>試しに、ActiveWorkbook.Password を引数として指定してみたんですが、うまくいかなかったです。。。
>
>どなたか、ご教授の程、よろしくお願い致します!

どうしてそんなことが必要なのかは別として、パスワードを
インプットボックスなどで変数として受け取って、ファイルAのパスワードであれば、
ファイルBのパスワードとして変換し、Openの引数として渡したらいかがでしょう。
自動的にパスワードを動的に変換したいということであれば、ごめんなさい。

Sub WB_Open()
  Dim myPSwd As String
  
  myPSwd = Application.InputBox(パスワードを入力してください, "パスワード入力")
  If myPSwd = "ABCD" Then  'ファイルAのパスワード
    myPSwd = "12345"    'ファイルBのパスワード
  Else
    MsgBox "パスワードが違います"
    Exit Sub
  End If
  Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "ファイルB.xls", Password:=myPSwd
End Sub
2 hits

【47875】パスワード付ファイルのオープン方法 かば 07/3/25(日) 9:19 質問
【47878】Re:パスワード付ファイルのオープン方法 ponpon 07/3/25(日) 9:54 発言
【47893】Re:パスワード付ファイルのオープン方法 かば 07/3/25(日) 23:22 発言
【47894】Re:パスワード付ファイルのオープン方法 ponpon 07/3/26(月) 1:07 発言

34069 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free