Excel工作表标签右键屏蔽与解除的方法 (1)

Excel工作表标签右键屏蔽与解除的方法 (1) Excel工作表标签右键屏蔽与解除的方法 经常看到关于工作表标签右键中的项变成灰色或去除后找不了，现将收集的屏蔽方法与解除方法整理汇总了一下: 屏蔽方法大概有以下三种方法: Sub 工作表标签右键灰色1() Application.CommandBars("ply").Controls("删除(&D)").Enabled = False '右键工作表标签“删除”为灰色 Application.CommandBars("ply").Controls("重命名(&R)").Enabled = False '右键工作表标签“重命名”为灰色 Application.CommandBars("ply").Controls("选定全部工作表(&S)").Enabled = False '右键工作表标签“选定全部工作表”为灰色 Application.CommandBars("ply").Controls("查看代码(&V)").Enabled = False '右键工作表标签“查看代码”为灰色 End Sub Sub 工作表标签右键禁用2() Application.CommandBars("Ply").Enabled = False End Sub Sub 去除工作表标签右键3() Application.CommandBars("ply").Controls("删除(&D)").Visible = False '去除右键工作表标签“删除” Application.CommandBars("ply").Controls("重命名(&R)").Visible = False '去除右键工作表标签“重命名” Application.CommandBars("ply").Controls("选定全部工作表(&S)").Visible = False '去除右键工作表标签“选定全部工作表” Application.CommandBars("ply").Controls("查看代码(&V)").Visible = False '去除右键工作表标签“查看代码” End Sub 解除方法大概有以下五种方法: Sub 解除工作表右键屏蔽1() Application.CommandBars("ply").Controls("删除(&D)").Enabled = True '解除右键工作表标签“删除”为灰色 Application.CommandBars("ply").Controls("重命名(&R)").Enabled = True '解除右键工作表标签“重命名”为灰色 Application.CommandBars("ply").Controls("选定全部工作表(&S)").Enabled = True '解除右键工作表标签“选定全部工作表”为灰色 Application.CommandBars("ply").Controls("查看代码(&V)").Enabled = True '解除右键工作表标签“查看代码”为灰色 End Sub Sub 解除工作表标签右键禁用2() Application.CommandBars("Ply").Enabled = True End Sub Sub 解除工作表右键屏蔽3() Dim Ctl As CommandBarControl For Each Ctl In Application.CommandBars("ply").Controls Ctl.Enabled = True Next End Sub Sub 解除工作表右键屏蔽4() Application.CommandBars("ply").Reset End Sub Sub 解除去除工作表标签右键5() Application.CommandBars("ply").Controls("删除(&D)").Visible = True '解除去除右键工作表标签“删除” Application.CommandBars("ply").Controls("重命名(&R)").Visible = True '解除去除右键工作表标签“重命名” Application.CommandBars("ply").Controls("选定全部工作表(&S)").Visible = True '解除去除右键工作表标签“选定全部工作表” Application.CommandBars("ply").Controls("查看代码(&V)").Visible = True '解除去除右键工作表标签“查看代码” End Sub 需要说明的是，并不是所有的屏蔽方法都可以用以上任意一种方法来进行解除，要选择合适的解除方法才行，不过也不外乎这五种方法，实在不知道，可以逐一地试，为方便大家， 特传一个附件作为参考(截图中左边从上至下依次为屏蔽的三种方法，其解除方法对应在右边的五种方法，以上均在EXCEL2003中测试通过，2007没试过)。