エクセル シート保護後コメントの挿入ができない

質問

win2000　officeXpです

以前こちらで、ファイルを開く時に
全シートの保護を行うマクロを教えたいただいたのですが、セルへのコメントの挿入ができなくなりました。
できる方法があればご教授ねがいます。
以下はその際教えていただいたマクロです。

Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
sh.EnableOutlining = True
sh.Protect UserInterfaceOnly:=True
Next sh
End Sub

回答No.2

KenKen_SP · ベストアンサー

これでどうでしょうか？

Private Sub Workbook_Open()
　　Dim sh As Worksheet
　　For Each sh In Worksheets
　　　　sh.EnableOutlining = True
　　　　sh.Protect _
　　　　　　DrawingObjects:=False, _
　　　　　　Contents:=True, _
　　　　　　UserInterfaceOnly:=True
　　Next sh
　　Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

お礼

早速の追加回答ありがとうございます。
試してみたところ、
見事！！！コメントの挿入ができるようになりました。
マクロって凄いですね！！
私ももうちょっと勉強します。

回答No.1

KenKen_SP

コメントは有効なのですが、画面上で赤のマークが表示されなくなっているようですね。1行加えました。これでどうですか？

Private Sub Workbook_Open()
　　Dim sh As Worksheet
　　For Each sh In Worksheets
　　　　sh.EnableOutlining = True
　　　　sh.Protect UserInterfaceOnly:=True
　　Next sh
　　Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

お礼

回答ありがとうございます。

１行加えてみたのですが、
セルを選択して右クリックメニューに
　　コメントの挿入
が現れず、
　　挿入→コメント
も、コメントの文字が灰色になっていて
選択できず、
　　コメントの挿入
が行えませんでした。
やり方に問題があるのでしょうか。