Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5187 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52169】WordのパスワードをVBAで解除できない sam 07/10/26(金) 12:28 質問[未読]
【52177】Re:WordのパスワードをVBAで解除できない Jaka 07/10/26(金) 15:50 発言[未読]
【52181】Re:WordのパスワードをVBAで解除できない sam 07/10/26(金) 20:11 質問[未読]
【52183】Re:WordのパスワードをVBAで解除できない n 07/10/26(金) 22:55 発言[未読]
【52195】Re:WordのパスワードをVBAで解除できない sam 07/10/29(月) 15:04 お礼[未読]
【52169】WordのパスワードをVBAで解除できない
質問  sam  - 07/10/26(金) 12:28 -
引用なし
パスワード
   昨日、Wordの方に上げさせて頂いた質問ですが、
実際にはExcelVBAでの話なので、こちらに移させて頂きます。

VBAで読取／書込パスワードを設定したり解除したりしようとした時、
設定は問題ないのですが、解除の際、保存するコード部分で
なぜかパスワードが復活してしまい、困っています。
Excelで同様の事をした場合はなんら問題ないのですが･･･
※WordVBAで試しても同じ結果です。

解決法がありましたら、ご教示頂ければ幸いです。
よろしくお願いいたします。


　　Set WdApp = CreateObject("Word.Application")
　 Set WdDoc = Wdapp.Documents.Open(f_Nm, , , , "2222")
　　With WdDoc
　　　　.Password = ""　'ここでは確かに消えるのに
　　　　.Save　'→ここでパスワードが復活してしまう
　　　　　　　　'.Close True でも同じ･･･　
　　End With
　　Set WdDoc = Nothing
　　WdApp.Quit
　　Set WdApp = Nothing
【52177】Re:WordのパスワードをVBAで解除できない
発言  Jaka  - 07/10/26(金) 15:50 -
引用なし
パスワード
   記載されたコードを２００２で試してみました。
環境が不安定なためか、不安定ながらパスワードを解除できました。

もっともワード文書はデータだが５文字しかない書きませんでした。
それと、最初は読み取りと書き込みのパスワードをかけていたんですが、書き込みでエラーになったため書き込みパスワードは設定しませんでした。
（解除したのは読取パスワードだけ。）
【52181】Re:WordのパスワードをVBAで解除できない
質問  sam  - 07/10/26(金) 20:11 -
引用なし
パスワード
   Jakaさん、検証＆レスありがとうございました！

私はWinXP／Excel2003／Word2003の環境で
テストを10数回繰り返しましたが、
読み取り・書き込み共に100％同じ症状です･･･

ファイルも、どれを使っても、
全くの新規ファイルでも変わりません。


・・・原因＆対処法が分かる方いらしたら引き続き
どうぞお願いいたします。
【52183】Re:WordのパスワードをVBAで解除できない
発言  n  - 07/10/26(金) 22:55 -
引用なし
パスワード
   こんにちは。wordもあまり詳しくないですが
試しに
With WdDoc
　　.Saved = False
　　.Password = ""
　　.Close True
End With
...こんな感じだと、どうなります？
2000ではokでしたが。
【52195】Re:WordのパスワードをVBAで解除できない
お礼  sam  - 07/10/29(月) 15:04 -
引用なし
パスワード
   nさん、教えて頂いた通りで上手くいくようになりました！
ありがとうございました！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5187 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free