Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8147 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【34688】エクセル97　パスワード有シートを更新 コウジ 06/2/9(木) 20:57 質問[未読]
【34691】Re:エクセル97　パスワード有シートを更新 Kein 06/2/9(木) 21:10 発言[未読]
【34760】すいません。勘違いしていました コウジ 06/2/11(土) 17:28 お礼[未読]
【34764】Re:すいません。勘違いしていました Kein 06/2/11(土) 17:43 回答[未読]
【34953】すいません。勘違いしていました コウジ 06/2/16(木) 17:42 お礼[未読]
【34688】エクセル97　パスワード有シートを更新
質問  コウジ  - 06/2/9(木) 20:57 -
引用なし
パスワード
   　はじめまして。
　”パスワードのかかったシートを一時的に解除して内容を更新する”
　について、過去ログにも例がありますが、これがエクセル97VBAでも記述可能かどうか教えてください。可能or不可能　の回答だけでも結構です。

　Workbooks.Open FileName:=flpath, password:=opnpass,writerespassword:=opnpass

　と打ち込んでも、passwordの頭文字"P"が大文字にならないので、旧バージョンでは無理かという印象もあるのですが。
　よろしくお願いします。
【34691】Re:エクセル97　パスワード有シートを更新
発言  Kein  - 06/2/9(木) 21:10 -
引用なし
パスワード
   Excel97は持っていませんが、Excel95のヘルプで確認したところ、Openメソッドの
引数には password も writeResPassword もありましたので、たぶん問題ないと
思いますが。
【34760】すいません。勘違いしていました
お礼  コウジ  - 06/2/11(土) 17:28 -
引用なし
パスワード
   ▼Kein さん
　ありがとうございました。
恥ずかしながら、エクセルにオープンパスワードがかけられるのを初めて知りました。
上記のコードは、”シートの保護””ブックの保護”のパスワードを解除するものとばかり思っていました。現在方針を変えてブックのリードオンリーを解除するしないという処理に変更しました。
　逆に、このすでに開いてあるエクセル画面にて”ツール”→”保護”でかけたロックをVBAで解除することは可能なのでしょうか。
【34764】Re:すいません。勘違いしていました
回答  Kein  - 06/2/11(土) 17:43 -
引用なし
パスワード
   >すでに開いてあるエクセル画面にて”ツール”→”保護”でかけたロックを
>VBAで解除することは可能なのでしょうか。
ブックの保護の場合は、パスワードを入れて解除してからでないと
「すでに開いてあるエクセル画面」に該当しないわけですから、シートの保護に限定
した処理になりますよね ? それなら

With ActiveSheet
　 If .ProtectContents Then .Unprotect PassWord:="ABC"
End With

などとすれば良いでしょう。
【34953】すいません。勘違いしていました
お礼  コウジ  - 06/2/16(木) 17:42 -
引用なし
パスワード
   ▼Kein さん：
　
　お礼が遅くなりました。
　二番目の質問、私の書き方がまずいにもかかわらずご回答ありがとうございました。
ご回答いただいたコード、ちょっと本を探せばありそうですね、もう少し勉強します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8147 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free