如何显示/隐藏Excel工作表上的所有注释（但不影响其他工作表）

我只希望有一个按钮显示/隐藏活动Excel工作表上的所有注释。我实现了此解决方案，并对其相当满意（使用Application.DisplayCommentIndicator）：

---

唯一的问题是，此解决方案在应用程序中打开的每个工作表上显示/隐藏注释。我需要它只在活动工作表（即带有按钮的工作表）上操作，这特别不方便，因为其他工作表（在其他工作簿中）没有“显示/隐藏”按钮。

我对您的问题有一个半修复程序。假设用户按下按钮隐藏位于

Sheet1

中的注释，但随后决定切换到另一个工作表，则所有注释将再次激活

问题：如果用户切换回

Sheet1

，则注释将被隐藏，如果用户希望查看注释，则无论之前的选择如何，都必须按取消隐藏：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    If Sh.Name = "Sheet1" Then
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    Else
    Application.DisplayCommentIndicator = xlCommentAndIndicator
    End If

End Sub

---

是否要显示注释，就像将鼠标悬停在单元格上一样？还是要将注释放在单元格中？此外，链接到的解决方案是否在所有图纸上运行？不仅仅是主动的？