屏蔽方法大概有以下三种方法: 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 Application.CommandBars(1).Control("工具(&T)").Controls("宏(&M)").Enabled = False Application.CommandBars(" ply").Controls("查看代码(&V)").Enabled = False Application.CommandBars(" Document").Controls("查看代码(&V)").Enabled = False '右键工作薄 "查看代码”为灰色 Application.CommandBars("Worksheet Menu Bar").Enabled = False屏蔽菜单栏 Application.DisplayFormulaBar = False'屏蔽编辑栏 Application.DisplayStatusBar = False'屏蔽状态栏 Application.CommandBars("Standard").Visible = False'屏蔽常用工具栏,右键可选 Application.CommandBars("Formatting ").Visible = False'屏蔽格式工具栏,右键可选 Application CommandBars("Standard").Enabled = False'去除常用工具栏,右键也删掉 Application commandBars("Formatting ").Enabled = False'去除格式工具栏,右键也删掉 Application commandBars("Toolbar list").Enabled = False '屏蔽右键工具栏 AppliCation.commandBars("cell").Enabled = False'屏蔽单元格右键单击 Application.CommandBars("Column").Enabled = False'屏蔽列右键单击 Application.CommandBars("Row").Enabled = False'屏蔽行右键单击 Application.Assistant.Visible = False'应用程序的辅助的可见 Application.CommandBars.DisableCustomize = True'去除右键工具栏中的“自定义” ActiveWindow.DisplayHeadings = False'屏蔽行号列标 ActiveWindow.DisplayWorkbookTabs = False'屏蔽工作表标签 ActiveWindow.DisplayVerticalScrollBar = False'屏蔽垂直滚动条 ActiveWindow.DisplayHorizontalScrollBar = False'屏蔽水平滚动条 Application.CommandBars("ply").Enabled = False'屏蔽工作表标签右键单击 Application.CommandBars("Visual basic' ).Enabled = False'屏蔽应用程序的<命令块>("Visual basic" )的激活 Application.OnKey "%{f11}"," " '屏蔽组合键ALT+F11, %代表ALT Application.OnKey "%{F11}" '解除屏蔽ALT+F11 |
|