エクセルのシートの保護と解除

質問

ｅｘｃｅｌ2010です。

1月から12月までシートを作り、年間合計を出していますが、各シートに保護をかけています。ただ、それを解除し、編集するとき、各シートごとに解除をし、その後、再び、各シートごとに保護をかけなおしています。13枚いちいち解除、保護をかけなおすのは大変なので、同時に全部のシートの解除、保護をしたいのですが方法を教えてください。

また、現在、シートが出る下の行がコマンドになっていて、各シートが出てきません。どうすればシート1、シート2などが出てくるようになるのでしょうか？

よろしくお願いいたします。

回答No.2

kybo · ベストアンサー

下記のページを見て下さい。

マクロの使い方 Excel2010の場合
http://www.officelabo.net/vba/e3.html

お礼

大変ご面倒をおかけいたしましたが、何とか設定できました。心から御礼申し上げます。

回答No.1

kybo

全シート一括で行うにはマクロになります。
下記は1234のパスワードで保護する例です。

’シートの保護を設定
Sub hogo()
　Dim W As Worksheet
　For Each W In Worksheets
　　W.Protect Password:="1234"
　Next W
End Sub

'シートの保護を解除
Sub hogokaijo()
　Dim W As Worksheet
　For Each W In Worksheets
　　W.Unprotect Password:="1234"
　Next W
End Sub

>また、現在、シートが出る下の行がコマンドになっていて、各シートが出てきません。どうすればシート1、シート2などが出てくるようになるのでしょうか？

ファイル→オプション→詳細設定のタブで、シートの見出しを表示するにチェックしてＯＫ

お礼

早速のご回答ありがとうございます。シートは解決いたしました。

マクロの方ですが、ご指示いただいた設定のところに入っていくまでがわかりません。申し訳ありませんが、どこをどう開いていけばよいのかお教えていただけますでしょうか。