ダグは、Excelではセルにコメントを追加できると述べていますが、ワークシートが保護されていない場合に限ります。彼は、保護されたワークシートにコメントを追加できるようにする方法があるかどうか疑問に思います。

この問題に取り組む方法はいくつかあります。 1つ目は、ワークシートの保護方法を変更することです。保護されていないワークシートから始めて、次の手順に従います。

。リボンの[ホーム]タブを表示します。

。 [セル]グループで、[フォーマット]、[セル]の順にクリックします。シートを保護します。 （リボンの[レビュー]タブで同じツールをクリックすることもできます。）Excelは[シートの保護]ダイアログボックスを表示します。 （図1を参照）

。ワークシートの保護に使用するパスワードを入力します。

。権限のリストを下にスクロールして、[オブジェクトの編集]チェックボックスをオンにします。 （コメントはExcelではオブジェクトと見なされます。）

。その他の必要な権限を設定します。

。 [OK]をクリックして、ダイアログボックスを閉じます。手順3でパスワードを入力した場合は、パスワードを再入力するように求められます。これを行う必要があります。

すべてのワークシートユーザーがセルにコメントを追加できるようになりました。これにより、ロック解除としてフォーマットしたセルだけでなく、ワークシートの任意のセルにコメントを追加できることに注意してください。さらに、ユーザーは、図面やグラフなど、ワークシート内の他のオブジェクトを変更（追加、変更、または削除）することもできます。

保護されたワークシートのコメントを処理するためのより詳細なアプローチが必要な場合は、マクロの使用に頼る必要があります。コンセプトは、マクロがユーザーにコメントテキストの入力を求め、ワークシートのロックを解除し、コメントを挿入してから、ワークシートを再ロックすることです。

Public Sub InsertComment()

Dim sPassword As String     Dim MyComment As String

sPassword = "123"



Set commentCell = ActiveCell     MyComment = InputBox("Enter your comments", "Comments")



ActiveSheet.Unprotect Password:=sPassword     Range(commentCell.Address).AddComment     Range(commentCell.Address).Comment.Text Text:=MyComment     ActiveSheet.Protect Password:=sPassword End Sub

sPassword変数に割り当てられた値を変更します。これは、ワークシートのロックを解除して再ロックするために必要です。パスワードはマクロに保存しているので、他の人がパスワードを見ることができないように、マクロを保護するための手順を実行する（VBAモジュールにパスワードを設定する）ことも確認する必要があります。マクロはショートカットキーに割り当てるか、クイックアクセスツールバーに追加できます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（12928）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice365のExcelに適用されます。