シート保護とグループ化機能を両立するマクロで

質問

エクセル2010です。
任意のセルにロックをかけて、シートを保護しています。
さらに、グループ化の開閉（左の欄で+と-で展開したり畳んだりする）機能を使いたのですが、シートの保護がかかっていると通常ではこれができません。
そこで調べたところ、以下のマクロでそれが両立できることがわかりました。

Sub 保護したままグループ開閉()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect UserInterfaceOnly:=True
End With
End Sub

しかし、シート保護のメニューで「ロックされていないセルの範囲選択」と「セルの書式設定」にチェックを入れて許可にしているのですが、このマクロをかけると、「セルの書式設定」のチェックが外れてしまい、文字の色等が変えられなくなってしまいます。
これを防止するには、上記のコードをどのように変えれば良いでしょうか？
アドバイスよろしくお願いいたします。

回答No.1

keithin · ベストアンサー

あなたのマクロを

.Protect allowformattingcells:=true

と修正します。

お礼

ありがとうございます！
修正というか、このコードを追加したらうまくいきました。助かりました。