我在这里的知识来自于多年来对许多项目的反复试验和错误。因此，我并不主张有确切的知识。然而，这个过程，如果遵循，将得到你的鱼，我会教你如何捕鱼，因为我知道它最好的！
有两个单独的方法需要这个...“菜单项”不是以相同的方式添加的。我相信微软在引入“ribbon”和RibbonX时改变了他们的添加方式。首先，格式化单元格，这是添加的'老办法'：
要获取“单元格”菜单上的菜单项（CommandBarControls）的ID，您可以使用以下命令：

Sub ListCommandBarControlsForCellMenu()
    Dim cb As CommandBar, cbc As commandBarControl
    Set cb = Application.CommandBars("Cell")
    For Each cbc In cb.Controls
        Debug.Print Now, cbc.ID, "'" & cbc.Caption & "'"
    Next cbc
End Sub

从这里你会看到“格式化单元格”的ID是855，所以你可以使用Application.CommandBars("Cell").FindControl(ID:=855, Recursive:=True).Enabled = False禁用它（当然，True可以启用它）。
接下来，添加“新方式”的新注解和新注解：
这些都是使用RibbonX添加的，你将需要一个RibbonX编辑器应用程序来帮助你编辑它...有几个RibbonX编辑器在那里，我建议Office RibbonX Editor（我与作者没有联系），你需要阅读如何使用它。一旦你掌握了如何添加/编辑RibbonX的窍门，你需要知道New Comment的idMso是NewThreadedComment，New Note的idMso是NewCommentLegacy，所以你需要的RibbonX代码是：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <contextMenus>
        <contextMenu idMso="ContextMenuCell">
            <button idMso="NewCommentLegacy" 
                enabled="false" />
            <button idMso="NewThreadedComment" 
                enabled="false" />
        </contextMenu>
    </contextMenus>
</customUI>

计算idMso值的过程并不简单。然而，我在这里使用的方法（以及以前使用的方法）。有时成功，有时不成功）是：在Excel中，转到：文件>选项>自定义功能区，在“选择命令自”下选择“所有命令”.在这一点上，然后，你必须工作，在（很长）下拉菜单中的命令涉及到你想要的'菜单项'。
在您的情况下，滚动到插入注解（在我的设备上有两个，它是第一个），并将鼠标悬停在它上面，您将在工具提示的末尾看到括号中的NewThreadedComment。这是新注解的idMso（为什么微软在一个地方使用插入注解，在另一个地方使用新注解，我不知道.这是“乐趣和游戏”的一部分，微软称之为每一个项目，没有明确的方法来做到这一点，我知道，你需要在下拉菜单中寻找，直到你找到你需要的命令）;然后滚动到新笔记，再次悬停鼠标找到idMso是NewCommentLegacy。然后在RibbonX中使用它们，如上所述，以禁用相关的菜单项。
要了解更多关于RibbonX的信息，包括如何使用getEnabled动态禁用/启用（如果您需要的话），请参阅Microsoft docs。

对于大多数单元格控件，我建议枚举单元格菜单项id和返回控件的函数。
请注意，这些控件是隐藏的，无法取消隐藏：

cmInsertComment = 2031

cmDeleteComment = 1592
cmShowHideComments = 1593

正如JohnM指出的，你需要编辑功能区来禁用菜单项。我使用Custom UI Editor插入xml来禁用新注解和新注解菜单项。

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <commands>
    <command idMso="NewThreadedComment" enabled="false"/>
    <command idMso="NewCommentLegacy" enabled="false"/>
  </commands>
</customUI>
Public Enum CellMenuControlID
    cmCut = 21
    cmCopy = 19
    cmPaste = 22
    cmPasteSpecial = 21437
    cmPasteTable = 3624
    cmSmartLookup = 25536
    cmPictureInCell = 34738
    cmShowDataTypeCard = 32714
    cmDataType = 32713
    cmViewAltText = 34737
    cmInsert = 3181
    cmDelete = 292
    cmClearContents = 3125
    cmTranslate = 33409
    cmQuickAnalysis = 24508
    cmSparklines = 31623
    cmFilter = 31402
    cmOutputAs = 34750
    cmSort = 31435
    cmGetDataFromTableRange = 34003
    cmInsertComment = 2031
    cmDeleteComment = 1592
    cmShowHideComments = 1593
    cmFormatCells = 855
    cmPickFromDropdownList = 1966
    cmShowPhoneticField = 1614
    cmDefineName = 13380
    cmOpenWith = 34600
    cmSetOpenDefault = 34680
    cmHyperlink = 1576
    cmEditHyperlink = 1577
    cmOpenHyperlink = 1015
    cmRemoveHyperlink = 3626
    cmLinkToThisRange = 34646
    cmShowChanges = 34405
    cmShowDiagnostics = 34713
    cmExpandToDetail = 11299
    cmAdditionalActions = 31595
    cmFullScreen = 178
    cmHideOthers = 34125
    cmAdditionalActions2 = 22577
    cmPeopleNearMe = 34042
    cmShowVBEditor = 1
End Enum
Function getCellMenuControl(Id As CellMenuControlID) As CommandBarControl
    Set getCellMenuControl = Application.CommandBars("Cell").FindControl(Id:=Id)
End Function