[[20110623133824]]　『シートの保護を全シート一括で（セルの書式設定を』（ヤス）　ページの最後に飛ぶ

『シートの保護を全シート一括で（セルの書式設定を許可したい』（ヤス）

 過去ログでシートの保護を一括でする際はマクロの利用が必要なことと
 その内容を調べることが出来たのですが、
 セルの書式設定も許可するのはどうすればイイでしょうか？

 □ロックされたセル範囲の選択
 □ロックされていないセル範囲の選択
 □セルの書式設定
 の三つにチェックが入った状態で保護したいです。

 上記の
 一括保護
 一括解除
 のマクロを教えていただけないでしょうか？

 マクロは貼り付けて利用するくらいしか分からない、超初心者です。
 Windows 7　　Excel2002　です

 ん？
 よくわからないんだけど・・・
 何枚シートがあろうが、それを保護する方法は、すでに持っているんだよね。
 で、その保護をする時に、この３つだけにティックがあり、そのほかはティックをはずした形の設定をしたい？

 それなら、この設定を(あるいは解除設定も）マクロ記録すれば、設定部分そのもののコードは入手できるわけだから
 それを、手持ちのコードに組み込めばいいんじゃない？

 ぶらっと立ち寄り。

ご回答ありがとうございます。
すみません、マクロの仕組みが全然分かってなくて・・・
今もっているコード

Sub 全シート保護()

      Dim c As Object
      Application.ScreenUpdating = False
      For Each c In Sheets
           c.Protect
      Next c
      Application.ScreenUpdating = True
End Sub

ですと

 □ロックされたセル範囲の選択
 □ロックされていないセル範囲の選択
 の二つにチェックが入った状態で保護されていると思います。

□セルの書式設定
にもチェックを入れた状態で保護したいのです。

それで、マクロを記録してみてみると

 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
と書かれています。
組み込み方が分からないので、教えていただけないでしょうか？

 Sub 全シート保護()
 Dim ws As Worksheet
 For Each ws In ThisWorkbook.Worksheets
     ws.Protect DrawingObjects:=True, Contents:=True, _
                Scenarios:=True, AllowFormattingCells:=True
 Next ws
 End Sub

 >マクロの仕組みが全然分かってなくて
 最初にそこを解決しないと、いつまでも同じだよ？
 (Gray)

 すでにGrayさんから回答があるとおり。
 c.Protect
 これが、取り出したシート(c)を保護しているコード。
 だから、
 c.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True

 ぶらっと立ち寄り

Grayさん、ぶらっと立ち寄りさん、ありがとうございます。

 Grayさんのおっしゃるとおり、基本の勉強が必要ですね。
 今回、このことが出来るようになり毎日の事務作業が改善されとても助かりました。
 ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20110623133824]] 『シートの保護を全シート一括で（セルの書式設定を』（ヤス） ページの最後に飛ぶ

[[20110623133824]]　『シートの保護を全シート一括で（セルの書式設定を』（ヤス）　ページの最後に飛ぶ