Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7334 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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です。
ファイル１からファイル２へデータの書き込みを行っています。
ファイル１は社内のPCそれぞれにあります。
ファイル２へ書き込まれるデータの内容が個人情報なので、ファイル２にセキュリティー
を設定しました。

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

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

宜しくお願い致します。
【39757】Re:パスワードのあるファイルに書き込み...
回答  ハト  - 06/6/30(金) 15:27 -
引用なし
パスワード
   おはようございます

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

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

パスワードのかかったファイル（エクセルのブックですよね？）は

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

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

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

ただし、パスワードが間違っていた場合のエラー処理を考える必要があります
【39758】Re:パスワードのあるファイルに書き込み...
お礼  UK  - 06/6/30(金) 15:48 -
引用なし
パスワード
   回答ありがとうございます。
早速確認いたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7334 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free