

下の「シート保護」マクロは、パスワード「111」でシートを保護しなさい。
「シート保護解除」マクロは、パスワード「111」でシートの保護解除をしなさい。
という命令だと思うのですが・・・
Sub シート保護()
ActiveSheet.Protect possword = "111"
End Sub
Sub シート保護解除()
ActiveSheet.Unprotect possword = "111"
End Sub
パスワードを入力してシートの保護を解除しようとすると、
入力したパスワードは間違っています。
CapsLockキーがオフになっていることを確認し、
大文字と小文字が正しく使われていることを確認してください。
というメッセージが出るのですが・・・、
マクロで作成した保護は、マクロで解除しないとダメという意味なのですか?
シートで保護解除できるようにしたいのですが、できますか?
No.3ベストアンサー
- 回答日時:
:について...
私の勝手な解釈で宜しければ。
あるメソッドに対して複数の省略可能で、型が同じ(後、順不同)な
引数があるときに、これは何用の値だよ、と宣言しているだけかな?
そのまま=にしてしまうと、構文上宜しくないので:=にしている?
例えば、Protect メソッドのヘルプを見てみると
expression.Protect(Password, DrawingObjects, Contents,
Scenarios, UserInterfaceOnly)
↑という構文になっています。(ワークシート用)
で、引数はPassword,Structure,Windowsの5つ有りますよね。
この引数は全て省略可能になっていますが、もし、そうでない時は
expression.Protect("Password", "DrawingObjects", "Contents",
"Scenarios", "UserInterfaceOnly")
となり、順番道理に値を使えばよいのですが、省略可能云々の条件で
~~:=と言うのを使わずに
expression.Protect("Password", "UserInterfaceOnly")
と書いてしまうと、
Password="Password", DrawingObjects="UserInterfaceOnly"
となってしまいます。
それでは困るので、~~:=を使い、この値は~~用の値だよと明示的に
宣言しているのではないでしょうか。
あまり文書で説明するのは得意でないので、よく解らないかも知れませんが...
こんな説明でどうでしょ。
注:Protectの引数は実際にはPassword以外"True"か"False"です。
ここでは、"UserInterfaceOnly"等にしていますが、それでは正常に
動作しないと思いますので...
あと、繰り返し書きますが、何かで読んだ、誰かに教わったと言う訳では
有りません。私の勝手な解釈です。
ご丁寧な解説、頭の下がる思いです。
ありがとうございました。
自宅ではインターネットをしていないので、カフェより返信です。
印刷して持って帰ります。
かなり・・・感激しました。
またいつか、お世話してください・・・。
No.2
- 回答日時:
どもです。
惜しいですね、ちょっとした記述ミスです。
オブジェクト(ActiveSheets)とメソッド(Protect)は合ってます。
でメソッドの引数がちょっとだけ間違ってます。
possword = "111" '元
password:="111" '修正後
これで試してみてください。
Unprotectも同じです。
掲示板上でも記述ミス・・・
passwordと入っていました。
「:」がなかったみたいです・・・。
「:」はどのような役目を果たしているのですか?
機会がありましたら、また教えてください。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのマクロで該当処理できな...
-
Excelマクロのエラーを解決した...
-
シートが保護されている状態で...
-
ブック名、シート名を他のモジ...
-
実行時エラー1004「Select メソ...
-
【ExcelVBA】全シートのセルの...
-
XL:BeforeDoubleClickが動かない
-
実行時エラー'1004': WorkSheet...
-
特定の文字を含むシートだけマ...
-
ユーザーフォームに入力したデ...
-
【Excel VBA】Worksheets().Act...
-
【VBA】全ての複数シートから指...
-
エクセルVBA Ifでシート名が合...
-
userFormに貼り付けたLabelを変...
-
VBA 検索して一致したセル...
-
ExcelVBA シート名を複数セルか...
-
Excel VBA リンク先をシート...
-
ExcelのVBAのマクロで他のシー...
-
Excel チェックボックスにチェ...
-
VBA ユーザーフォーム上のチェ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
実行時エラー1004「Select メソ...
-
特定の文字を含むシートだけマ...
-
XL:BeforeDoubleClickが動かない
-
【ExcelVBA】全シートのセルの...
-
実行時エラー'1004': WorkSheet...
-
ユーザーフォームに入力したデ...
-
【Excel VBA】Worksheets().Act...
-
エクセルVBA Ifでシート名が合...
-
Excel チェックボックスにチェ...
-
シートが保護されている状態で...
-
Excel VBA リンク先をシート...
-
ブック名、シート名を他のモジ...
-
ExcelのVBAのマクロで他のシー...
-
同じ作業を複数のシートに実行...
-
エクセルのシート名変更で重複...
-
VBA 検索して一致したセル...
-
【VBA】色のついたシート名を取得
-
VBAで指定シート以外の選択
おすすめ情報