如何在受保护的工作表中插入批注？

一般来说，我们很容易在未受保护的工作表的单元格中插入批注。但有时您需要设置密码来保护您的工作表，同时又希望在受保护的工作表中插入批注。在Excel中该如何实现呢？

通过勾选“编辑对象”选项在受保护的工作表中插入批注

使用VBA代码在受保护的工作表中插入批注

通过勾选“编辑对象”选项在受保护的工作表中插入批注

要在受保护的工作表中插入批注，您可以在保护工作表时勾选“编辑对象”选项。请按照以下步骤操作：

1. 单击“ 审阅”>“ 保护工作表”，参见截图：

2. 在“保护工作表”对话框中，在“取消保护工作表的密码”文本框中输入您的密码，然后向下滚动并在“允许此工作表的所有用户进行”列表框中勾选“ 编辑对象”选项，参见截图：

3. 然后单击“确定”，并在“确认密码”对话框中重新输入您的密码。

4. 然后单击“确定”关闭对话框，现在您的工作表已被保护，但您仍然可以在此工作表中插入批注。

注意：使用这种方法，您不仅可以插入批注，还可以插入其他对象，例如图片、图表等。

使用VBA代码在受保护的工作表中插入批注

除了在保护工作表时勾选“编辑对象”选项外，您还可以应用以下VBA代码。以下VBA代码将帮助您在一个单元格中插入批注并保护工作表。请按以下步骤操作：

1. 单击要插入批注的单元格。

2. 按住ALT + F11键，打开 Microsoft Visual Basic for Applications窗口。

3. 单击“插入”>“模块”，并将以下代码粘贴到模块窗口中。

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. 单击“确定”关闭此框，您的批注已插入到指定单元格，并且当前工作表同时受到保护。

注意事项：

1. 您可以在上述代码中的xPW = “123456”处修改为您自己的密码。

2. 如果您想插入另一个批注，只需选择一个单元格并再次运行此代码，然后输入批注内容即可。

相关文章：

如何在Excel中筛选带有批注的单元格？

如何在受保护的工作表中对行进行分组和取消分组？