Excel 2003 で、次のようなVBAを入力しています。

質問

Excel　2003 で、次のようなVBAを入力しています。
手動でも同じパスワードでシートの保護設定、解除をしたいのですが、
方法はありますか？
ご教示よろしくお願いいたします。

ActiveSheet.Unprotect Password ="pass" 'シート保護解除
Selection.AutoFilter Field:=7, Criteria1:="<>" '項目「得意先名」が、「空白以外」を抽出
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '印刷
Selection.AutoFilter Field:=7 '印刷範囲の解除
ActiveSheet.Protect Password="pass"

回答No.3

buraigasho · ベストアンサー

手動で解除・設定ができなくなっていたんですね。
これは、プロテクトの引数が間違っているので、passというパスワードではなくなっている為です。

ActiveSheet.Unprotect Password ="pass"は、
ActiveSheet.Unprotect("Password =""pass""")と一緒です。

正確には
ActiveSheet.Unprotect Password:="pass"

というふうにPassword引数に"pass"をいれると宣言しないと成り立ちません。

okormazdさんのおしゃっているように、まずは、
ActiveSheet.Unprotect Password="pass"　これを実行して
ActiveSheet.Protect Password:="pass"　これで正常に戻してください。

お礼

とても、わかりやすく、丁寧にご回答いただきまして、ありがとうございました。

回答No.2

okormazd

書き方がおかしいから，手動で解除できない。
Passwordが"pass"じゃなくなっている。何になっちまってるんだろう。

ActiveSheet.Unprotect Password ="pass" 'シート保護解除
ActiveSheet.Protect Password="pass"
↓
ActiveSheet.Unprotect Password :="pass" 'シート保護解除
ActiveSheet.Protect Password:="pass"
なら，手動で解除できる。

お礼

ありがとうございました。

回答No.1

buraigasho

手動といいますと、ツールバーのツール＞保護＞シートの保護 or シートの解除でしょうか？
的外れならごめんなさい。。。

お礼

説明不足ですみません

ありがとうございました。

補足

「ツールバーのツール＞保護＞シートの保護 or シートの解除」を行うと
「入力したパスワードは間違っています。CapsLockキーがオフになっていることを確認し、大文字、小文字が正しく使われていることを確認してください」というメッセージが出てしまいます。
もちろん、パスワードは間違っていません。
マクロを組むと手動での保護解除は、できなくなるのでしょうか？