保護されたワークシートにコメントを挿入する方法は？

一般的に、保護されていないワークシートのセルにコメントを挿入するのは簡単です。 ただし、ワークシートを保護するためにパスワードを設定する必要があり、保護されたシートにもコメントを挿入したい場合があります。 これをExcelでどのように行うことができますか？

[オブジェクトの編集]オプションをオンにして、保護されたワークシートにコメントを挿入します

VBAコードを使用して保護されたワークシートにコメントを挿入します

[オブジェクトの編集]オプションをオンにして、保護されたワークシートにコメントを挿入します

保護されたワークシートにコメントを挿入するには、 オブジェクトの編集 ワークシートを保護している間のオプション。 次のようにしてください。

1に設定します。 OK をクリックします。 レビュー > 保護シート、スクリーンショットを参照してください：

2。 の中に 保護シート ダイアログで、パスワードをに入力します 保護されていないシートのパスワード テキストボックスをクリックし、下にスクロールしてチェックします オブジェクトを編集する 内のオプション このワークシートのすべてのユーザーに リストボックス、スクリーンショットを参照：

3。 次に、をクリックします OK、にパスワードを再入力します パスワードの確認 ダイアログ。

4。 そして、 OK ダイアログを閉じると、ワークシートは保護されますが、このワークシートにコメントを挿入できます。

Note：この方法では、コメントを挿入できるだけでなく、画像やグラフなどの他のオブジェクトを挿入することもできます。

VBAコードを使用して保護されたワークシートにコメントを挿入します

ワークシートを保護するときに[オブジェクトの編集]オプションをオンにする以外に、次のVBAコードを適用することもできます。 次のVBAは、セルにコメントを挿入してワークシートを保護するのに役立ちます。 このようにしてください：

1。 コメントを挿入するセルをクリックします。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：保護されたワークシートにコメントを挿入します

Public Sub InsertComment()
'Update 20140723
Dim xPW As String
Dim xComment As String
xPW = “123456”
xTitleId = "KutoolsforExcel"
xComment = Application.InputBox("Input comments", xTitleId, "", Type:=2)
Application.ActiveSheet.Unprotect Password:=xPW
Application.ActiveCell.AddComment
Application.ActiveCell.Comment.Text Text:=xComment
ActiveSheet.Protect Password:=xPW
End Sub

4。 次に、 F5 このコードを実行するためのキーを押すと、プロンプトボックスが表示されます。ボックスに、必要に応じてコメントの内容を入力してください。スクリーンショットを参照してください。

5に設定します。 OK をクリックします。 OK このボックスを閉じると、コメントが指定されたセルに挿入され、現在のワークシートが同時に保護されます。

注意：

1.でパスワードを自分のものに変更できます xPW =“ 123456” 上記のコードの。

2.別のコメントを挿入する場合は、セルを選択してこのコードを再度実行し、コメントの内容を入力します。

関連記事：

Excelでコメント付きのセルをフィルタリングするにはどうすればよいですか？

保護されたワークシートの行をグループ化およびグループ解除する方法は？