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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA別シートの最終行の下行へ貼...
-
Excel VBA インデックスの境...
-
エクセルVBA 別シートの複数の...
-
VBAで条件が一致する行のデータ...
-
シャープのアクオス sh-m25 を...
-
エクセルVBAで 2種のリストを...
-
VBA:同じ文字列データの比...
-
excel:色付き文字の抽出と変換法
-
VBA 貼付先範囲(行)がいっぱ...
-
Excel で行を指定回数だけコピ...
-
Excel VBA元データから別シー...
-
Excel VBA :2回目以降実行で貼...
-
【WORD差し込み印刷】複数レコ...
-
エクセルVBAで実行時エラー...
-
アクセスかエクセルで不一致行...
-
Excel VBA 時刻でのD...
-
スマホ機種変更で旧機種のGoogl...
-
LAVIE Direct DT PC-GD298ZZAL...
-
代替機にキズ
-
ドコモの電話帳バックアップに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
エクセルVBA 別シートの複数の...
-
シャープのアクオス sh-m25 を...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
VBA:同じ文字列データの比...
-
エクセルVBAで 2種のリストを...
-
エクセル:VBAで月変わりで、自...
-
歯抜けの時間を埋めて行の挿入
-
エクセルVBAで SendKeys "{TAB}"
-
VBAで条件が一致する行のデータ...
-
VBA別シートの最終行の下行へ貼...
-
EXCELマクロで全シート対...
-
Excel VBAでシート内全体に非表...
-
VBA 貼付先範囲(行)がいっぱ...
-
VBAで複数シート選択
-
【VBA】UserForm1の中で使うワ...
-
【WORD差し込み印刷】複数レコ...
-
VBAで複雑な構成の転記
-
エクセルVBAでの日付順のデ...
おすすめ情報