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

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 回答日時： 2005/03/10 18:42

これでどうでしょうか？

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

この回答へのお礼

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

お礼日時：2005/03/10 19:48

No.1 回答者： KenKen_SP 回答日時： 2005/03/10 01:37

コメントは有効なのですが、画面上で赤のマークが表示されなくなっているようですね。

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

この回答へのお礼

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

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

お礼日時：2005/03/10 17:37