在纸张标签右键单击Excel中禁用

Question

我用的ThisWorkbook模块在此VBA代码以禁用在Excel工作簿的右击菜单。

Private Sub Workbook_Activate()
   With Application.CommandBars.FindControl(ID:=847)
      .Visible = False
   End With
End Sub

Private Sub Workbook_Deactivate()
   With Application.CommandBars.FindControl(ID:=847)
      .Visible = True
   End With
End Sub

就像一个魅力。结果 问题是，我无法访问右键菜单上的选项卡中的任何工作簿了。 代码的第二部分是应该打开它，我认为？然而，它没有。

即使我完全删除代码，没有工作簿，甚至不是一个新的，有当我点击了其中一个标签右边的菜单。

时有一个一般的VBA codesnippet说，“重置”创先争优可能？或一般“启用所有菜单”的事情吗？

<强> REVISION： 此代码贴在这里不会禁用右键菜单，它消除了从特定的菜单中选择“删除”选项。

Answer 1

OMG

Application.CommandBars("Ply").Enabled = True

-.-结果 开始最后的编辑和BAM后，谷歌搜索不同的关键词。

Answer 2

尾盘再度像往常一样，但同样的问题今天解决。这里的解决方案，让你的右键功能回到：

Option Explicit
'
Sub tester()
    '
    Dim cBar As CommandBar
    '
    For Each cBar In CommandBars
        Debug.Print cBar.Name
        If (cBar.Type = msoBarTypePopup) Then cBar.Enabled = True
    Next
End Sub

Answer 3

还要注意，下面也同样存在。从工作的一些宏观让他们所有的残疾人在我的Excel中。

Application.CommandBars("Cell").Enabled = True
Application.CommandBars("Row").Enabled = True
Application.CommandBars("Column").Enabled = True