Excel VBA工作表标签右键的屏蔽与恢复汇总 图文

2018年9月30日23:17:09Excel VBA工作表标签右键的屏蔽与恢复汇总 图文已关闭评论 2,214 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

经常看到关于工作表标签右键中的项变成灰色或去除后找不了,现将收集的屏蔽方法与解除方法整理汇总了一下:

屏蔽方法大概有以下三种方法:

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

 

  • 郑广学老师微信号
  • EXCEL880B
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin