右键单击在Excel中禁用的图纸选项卡

我在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码字“重置”excel也许？ 还是一般的“启用所有菜单”的东西？

REVISION：这里发布的代码并不禁用右键菜单，它从特定的菜单中删除“删除”选项。

Answer 1

我的天啊

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

-.-
在最后一次编辑和BAM后开始使用不同的关键字。

Answer 2

像往常一样晚了，但今天解决了同样的问题。 这是解决scheme，让您的右键单击function：

 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

还要注意下面也存在。 一些来自工作的macros使他们都在我的Excel中禁用。

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