Excel VBA質問箱 IV

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

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


7332 / 13644 ツリー ←次へ | 前へ→

【39749】パスワードのあるファイルに書き込みする... UK 06/6/30(金) 13:42 質問[未読]
【39757】Re:パスワードのあるファイルに書き込みす... ハト 06/6/30(金) 15:27 回答[未読]
【39758】Re:パスワードのあるファイルに書き込みす... UK 06/6/30(金) 15:48 お礼[未読]

【39749】パスワードのあるファイルに書き込みする...
質問  UK  - 06/6/30(金) 13:42 -

引用なし
パスワード
   UKです。
ファイル1からファイル2へデータの書き込みを行っています。
ファイル1は社内のPCそれぞれにあります。
ファイル2へ書き込まれるデータの内容が個人情報なので、ファイル2にセキュリティー
を設定しました。

ファイル1にある書き込みボタンを押すとファイル2を開く際にパスワードを聞いてきます。
このパスワードは限定した人間のみ知っているため、一般の人はしりません。
(ファイル1の操作は、一般の人が操作します。)

パスワードのポップアップメッセージを表示させずに、コードでパスワード(数字5桁)を入力し、ファイル2にデータを書き込みする方法を教えて頂きたいと思います。

宜しくお願い致します。

【39757】Re:パスワードのあるファイルに書き込み...
回答  ハト  - 06/6/30(金) 15:27 -

引用なし
パスワード
   おはようございます

>パスワードのポップアップメッセージを表示させずに、コードでパスワード(数字5桁)を入力し、ファイル2にデータを書き込みする方法を教えて頂きたいと思います。

コードを入力させるのなら、パスワードのポップアップメッセージと変わらないような気もしますが・・・

パスワードのかかったファイル(エクセルのブックですよね?)は

Dim FName  'ファイル名
Dim PWord  'パスワード

  PWord = InputBox("コード")
  Workbooks.Open Filename:=FName, Password:=PWord

でパスワードのポップアップメッセージなしで開く事ができます

ただし、パスワードが間違っていた場合のエラー処理を考える必要があります

【39758】Re:パスワードのあるファイルに書き込み...
お礼  UK  - 06/6/30(金) 15:48 -

引用なし
パスワード
   回答ありがとうございます。
早速確認いたします。

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