![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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ベストアンサー
- 回答日時:
これでどうでしょうか?
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
- 回答日時:
コメントは有効なのですが、画面上で赤のマークが表示されなくなっているようですね。
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
回答ありがとうございます。
1行加えてみたのですが、
セルを選択して右クリックメニューに
コメントの挿入
が現れず、
挿入→コメント
も、コメントの文字が灰色になっていて
選択できず、
コメントの挿入
が行えませんでした。
やり方に問題があるのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/09 12:17
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/04 10:48
- Excel(エクセル) エクセル 「実行時エラー"13":型が一致しません。」エラーについて 5 2022/05/04 10:46
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2023/01/20 14:36
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
Excel VBA インデックスの境...
-
エクセル:VBAで月変わりで、自...
-
excelの差込印刷で可視セルだけ...
-
エクセルVBA 別シートの複数の...
-
VBA:同じ文字列データの比...
-
EXCELマクロで全シート対...
-
歯抜けの時間を埋めて行の挿入
-
VBAで複数シート選択
-
Excel VBAでシート内全体に非表...
-
Excelで最後まで計算式を...
-
Excel 蓄積された売上データを...
-
プリインスト-ル「カメラアプリ」が使えますん。
-
ドコモの電話帳バックアップに...
-
スマホ機種変更で旧機種のGoogl...
-
代替機にキズ
-
FOMAカード(UIM)異常
-
PC修理に出すのですが、個人情...
-
映画「デスノート」前編の中に...
-
SDカードのデータ更新について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
VBA:同じ文字列データの比...
-
エクセルVBA 別シートの複数の...
-
エクセルVBAで SendKeys "{TAB}"
-
エクセル:VBAで月変わりで、自...
-
VBA別シートの最終行の下行へ貼...
-
歯抜けの時間を埋めて行の挿入
-
エクセルVBAで 2種のリストを...
-
Excel VBAでシート内全体に非表...
-
VBAで複数シート選択
-
EXCELマクロで全シート対...
-
Excel VBA :2回目以降実行で貼...
-
VBAで条件が一致する行のデータ...
-
VBAの指示の内容 昨日こちらで...
-
【WORD差し込み印刷】複数レコ...
-
Excelでデータの抽出&別シート...
-
エクセルVBAで実行時エラー...
-
エクセル シート保護後コメン...
おすすめ情報