エクセルVBAでマスターキーを作りたい

質問

こんなことが可能かどうかもよくわからないのですが。。
色んなエクセルファイルやワードファイルにパスワードをかけてて
色んな組み合わせで使っているのでややこしいので
マスターキー的なものを作りたいと思っています。
ファイル選択ダイアログからファイルを選択して
A列の読み取りパスワード、および同じ行のC列の書き込みパスワードを
適用してファイルを開くプログラムを作りたいのです。
行2の組み合わせで開かなければ行3の組み合わせを適用。それが無理なら行4。
ファイルが開けるまで順に下の行のものを適用するものです。

初心者なので色んなサイトで見たものをツギハギしてみてるのですが、
まずパスワードが違った時にエラーで止まってしまうし、
そもそもパス付Word文書をExcelから開けるのかもわからないのですが
もし可能なら、拡張子を判断してどうやってワードかエクセルの
どちらかを開かせるのか、そしてどうループさせればいいのか。。
行き詰っています。ご教授いただけると嬉しいです。
何卒よろしくお願いいたします。

Dim OPFileName As Variant

OPFileName = _
Application.GetOpenFilename( _
FileFilter:="すべてのファイル(*.*),*.*" & _
",エクセルファイル(*.xls),*.xls" & _
",CSVファイル(*.csv),*.csv" & _
",ワードファイル(*.doc),*.doc" _
, FilterIndex:=1 _
, Title:="ファイルを選択" _
, MultiSelect:=False _
)

extension = Mid(OPFileName, pointp + 1)

x = 2

If OPFileName <> False Then

If extension = xls Or csv Then

Workbooks.Open filename:=OPFileName, password:=Cells(x, 1).Value, WriteResPassword:=Cells(x, 3).Value, IgnoreReadOnlyRecommended:=True

End If
End If

回答No.1

Wendy02 · ベストアンサー

こんばんは。

CSV にはパスワード管理は出来ませんね。
とりあえず、テクニック的なところだけを抜き出して書いておきます。

WordとExcelを開ける場合とは、コードを同じにはしないほうがよいと思います。
Wordは、CreateObject でオブジェクトを作ってあげてからのほうがよいのです。

1.
>まずパスワードが違った時にエラーで止まってしまうし、

Dim OPFileName

On Error Resume Next
Workbooks.Open Filename:=OPFileName, _
　　　　　　　Password:=Cells(x, 1).Text, _
　　　　　　　WriteResPassword:=Cells(x, 3).Value, _
　　　　　　　IgnoreReadOnlyRecommended:=True

If Err.Number > 0 Then
　 MsgBox "パスワードが違います。", 48
End If
On Error GoTo 0

2.
>そもそもパス付Word文書をExcelから開けるのかもわからないのですが
-----------------------------------------------
Dim OPFileName
Dim objWd As Object 'Word.Application '参照設定の場合

Set objWd = CreateObject("Word.Application")

objWd.Visible = True
On Error Resume Next
　objWd.Documents.Open OPFileName, , , , _
　　　　　　　　　Cells(x, 1).Text, , , _
　　　　　　　　　Cells(x, 3).Text

If Err.Number > 0 Then
　 MsgBox Err.Description, 48
'パスワードが違うというだけでも良いです。

End If
On Error GoTo 0
　Set objWd = Nothing

（事前バインディング＝参照設定したほうが負担は少ないと思います。)
-----------------------------------------------------------
3.
>拡張子を判断してどうやってワードかエクセルのどちらかを開かせるのか、

If OPFileName Like "*.xls" Then
　 'Excelを開く
ElseIf OPFileName Like "*.doc" Then
　 'Wordを開く
ElseIf OPFileName Like "*.csv" Then
　 'csv ファイルを開く
End If

-----------------------------------------------------------
型の宣言とかの周辺部分は省きましたが、その辺りは確実なものだとします。

お礼

ありがとうございます！！
組み合わせて実行してみたらうまく開きました！
すごいですね・・・感動しました(@_@。　奥深いですね。。
後のループをもうちょっと考えてみます(笑)
これを機に本気でVBAの勉強をしようと思います★
本当にありがとうございました。助かりました(*^_^*)