エクセルＶＢＡで保護したシート内の書式設定を可能にしたい

Question

お世話になります。

『記入可能セルに記入させ、「送信」フォームを押すと、１箇所文字の色が変わり、添付されてメールで送られる。』というマクロを組みました。

その後、
シートがたくさんあるので、ＶＢＡを使って、一度にシートの保護、非保護を行いました。
以下はその記述文です。

Sub 保護()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Protect Password:=111
Next
End Sub

Sub 保護解除()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Unprotect Password:=111
Next
End Sub

この保護のマクロを使うと、記入可能なセルは、セルの書式設定の保護タブからチェックをはずしており全く問題ないのですが、
「色が変わる」という設定がエラーになります。
どのようにしたら、色が変わるのも許可されるマクロになるのでしょうか。
ご教示お願いいたします。

end-u · Accepted Answer

>『記入可能セルに記入させ、「送信」フォームを押すと、１箇所文字の色が変わり、添付されてメールで送られる。』というマクロ

このマクロを
「送信」フォームを押すと、
【そのシートの保護を解除し、】
１箇所文字の色を変え、
【再保護し、】
添付されてメールで送られる。
...と作り変えるか、


Sub 保護()
　　Dim Ws As Worksheet
　　For Each Ws In Worksheets
　　　　Ws.Protect Password:=111, userInterfaceOnly:=True
　　Next
End Sub
...と変更し、マクロでの変更を許可して保護するか、などが考えられます。

end-u · Answer

>そこで、Ws.Protect Password:=111のコロンをとって実行すると、
これが失敗だったようですね。
同じように

Sub 保護解除()
　　Dim Ws As Worksheet
　　For Each Ws In Worksheets
　　　　Ws.Unprotect Password = 111
　　Next
End Sub

これで解除してください。

モジュールの先頭（General)セクションで Option Explicit ステートメントを使っていませんね？
変数宣言を強制していないと、『Password』がコンパイルエラーにならず、変数と見なされてしまいます。
多分その辺りが影響しているのでしょう。
Option Explicit ステートメントは使ったほうが良いと思います。

また、
>保護をかけているのに、シートを個別で保護を解除しようとすると、パスワードを要求されずに解除できてしまいます。
これは何かの間違いでしょう。よく確認してみてください。
新規Bookで同様の現象が発生するかどうか試してみると良いでしょう。
ちなみに
>For Each Ws In Worksheets
この場合 Worksheets の親が指定されていませんから、
ActiveなBookに対してマクロを実行している事になります。
その点も踏まえておいたほうが良いかもしれませんね。

エクセルＶＢＡで保護したシート内の書式設定を可能にしたい

>『記入可能セルに記入させ、「送信」フォームを押すと、１箇所文字の色が変わり、添付されてメールで送られる。

この回答への補足

>そこで、Ws.Protect Password:=111のコロンをとって実行すると、

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング