エクセルのシート保護について

質問

こんにちは

エクセルでシートが複数あります。
普段はいじらないように保護をかけてあります。（パスワードは設定していません）
同時に編集をしたいので、シートの保護を解除したり設定したりをしたいのですが、複数のシートを同時に設定・解除できる方法はありますか？
普通にシートを複数選んでも保護をいじることができないのですが、何かいい方法があったら教えてください。

回答No.5

merlionXX · ベストアンサー

マクロの記録ではシート名やシート数が違ったりして最初はうまくいかないでしょう。
とりあえず以下を試してみてください。

1.Alt+F11キーでVisualBasicEditorを呼び出します。
2.メニューから挿入、標準モジュールで出てきたコードウィンド（右側の白い広い部分）に以下のコードをコピペします。

Sub All_Protect()
For Each sh In Worksheets
sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub

Sub All_UnProtect()
For Each sh In Worksheets
sh.Unprotect
Next
End Sub

3.Alt+F11キーでワークシートへもどります.
4.メニューから、ツール、マクロ、マクロで出てきたマクロ名（All_ProtectやAll_UnProtect）を選択して実行

これでブック内の全シートを一度に保護したり、解除したりが可能です。

お礼

お礼が遅くなりました。
無事にできましたので、ありがとうございました

回答No.4

keirika

No.1です

特にマクロと言っても、自分で記述する必要はありません。エクセルには行った操作を記録する機能がありますので、そちらを利用されるのが良いかと思います

具体的な操作方法は以下の通りです。

１．セキュリティのレベルを中にします。(操作方法は参考サイトに記載)

２．[ツール]－[マクロ]－[新しいマクロの記録]で名前を付けてＯＫ

３．いつも行っているシートの保護の操作をします。

４．終わりましたら、『記録終了』ボタンを押します

５．シートの保護解除についても２～４を行います

６．フォームツールバーを表示します。

７．ボタンを選択して、シート上に貼り付けます

８．マクロ登録のダイアログボックスが表示されますので記録をしたマクロを選択してＯＫ

９．保護と保護解除のボタンが出来ました完成です。

よろしければ、一度お試し下さい

以下に参考サイトをご紹介します。

『マクロの作成』
http://office.microsoft.com/ja-jp/assistance/HP052047111041.aspx

『フォーム』
http://office.microsoft.com/ja-jp/assistance/HP052036041041.aspx

お礼

お礼が遅くなりました
やり方を詳しく教えて下さってありがとうございます。
無事できましたので、ありがとうございます

回答No.3

noname#17648

設定は出来ませんが解除は出来ます。
ただし、ここでは禁止されているので
グーグルに頼ってください

回答No.2

you-one

私も以前、同じことを疑問に思い、いろいろ自分で試してみましたが、複数シートの選択で保護・解除はできないみたいですね・・・。

複数シートの選択で、よく編集作業をされるのでしたら、＃１の方が言われるように、マクロに記憶させておくのもいい方法ですね。

お礼

やはり無理なんでしょうかね
マクロを勉強してみます・・・
ありがとうございます

回答No.1

keirika

マクロの記録を使用し、ボタンに割り付けてはいかがでしょうか？

お礼

さっそくありがとうございます。
関数とかはやったことがあるのですが、マクロって使ったことがないのですが・・・
できればマクロではないほうが良いのですが、他に方法がないようであれば、詳しく教えてください。