| |
おはようございます。
>
>任意のExcelファイルをダイアログボックスで選択して開きたいのですが、開くファイルには全て同じパスワードが設定してあります。
>ファイルを開く際にパスワードの入力を求められるのですが、パスワードを自動的に入力、またはパスワードの入力をせずにファイルを開くことは可能でしょうか？
>よいアドバイスをお願いいたします。
>
>また、この質問は不明なパスワードを解除するためのものではありません。
ということは、コーダーは、パスワードを知っていると言う解釈でよいですか？
例えば、パスワードが 「ichinose」 だとすると
Sub open_open()
Dim flnm As Variant
flnm = Application.GetOpenFilename
If TypeName(flnm) <> "Boolean" Then
Workbooks.Open flnm, , , , "ichinose"
End If
End Sub
オープン時のエラー処理はしていませんが・・・。
（本来は、すべきですよ）
又、パスワードをコード内に直接記述するのも？？？ですが、
まっ、その辺は、別議論と言うことで・・・。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
