如何在受保護的工作表中插入批註？

一般來說，我們很容易在未受保護的工作表的單元格中插入批註。但有時您需要設置密碼來保護您的工作表，同時也希望在受保護的工作表中插入批註。在 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 中篩選帶有批註的單元格？

如何在受保護的工作表中分組和取消分組行？