Excel VBA質問箱 IV

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

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


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

【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 -

引用なし
パスワード
   記載されたコードを2002で試してみました。
環境が不安定なためか、不安定ながらパスワードを解除できました。

もっともワード文書はデータだが5文字しかない書きませんでした。
それと、最初は読み取りと書き込みのパスワードをかけていたんですが、書き込みでエラーになったため書き込みパスワードは設定しませんでした。
(解除したのは読取パスワードだけ。)

【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さん、教えて頂いた通りで上手くいくようになりました!
ありがとうございました!!

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