作者：绿色风
分类：
时间：2022-08-17
浏览：92
楼主
biaotiger1 |
Q：如何仅屏蔽Sheet1工作表右键菜单的部分命令？
A：在Sheet1工作表模块中输入代码如下：
- Private Sub Worksheet_Activate() '激活sheet1工作表则无法选中选项
- If Selection.Rows.Count = 1 And Selection.Columns.Count = 16384 Then
- Application.CommandBars("row").Controls(10).Enabled = False
- End If
- If Selection.Columns.Count = 1 And Selection.Rows.Count = 1048576 Then
- If WorksheetFunction.Count(Columns("XFD:XFD")) <> 0 Then
- Application.CommandBars("column").Controls(6).Enabled = False
- Application.CommandBars("column").Controls(10).Enabled = False
- End If
- End If
- End Sub
- Private Sub Worksheet_Deactivate() 'sheet1工作表失活则恢复选项
- Application.CommandBars("column").Controls(10).Enabled = True
- Application.CommandBars("row").Controls(10).Enabled = True
- Application.CommandBars("column").Controls(6).Enabled = True
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'sheet1工作表选定区域发生变化时执行条件判断
- If Target.Rows.Count = 1 And Target.Columns.Count = 16384 Then
- Application.CommandBars("row").Controls(10).Enabled = False
- End If
- If Target.Columns.Count = 1 And Target.Rows.Count = 1048576 Then
- If WorksheetFunction.Count(Columns("XFD:XFD")) <> 0 Then
- Application.CommandBars("column").Controls(6).Enabled = False
- Application.CommandBars("column").Controls(10).Enabled = False
- End If
- End If
- End Sub
在ThisWorkbook标准模块中输入代码如下：
- Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭该工作簿前恢复选项
- Application.CommandBars("column").Controls(10).Enabled = True
- Application.CommandBars("row").Controls(10).Enabled = True
- Application.CommandBars("column").Controls(6).Enabled = True
- End Sub
- Private Sub Workbook_Deactivate() '如果多个工作簿同时使用，该工作簿失活则恢复选项
- Application.CommandBars("column").Controls(10).Enabled = True
- Application.CommandBars("row").Controls(10).Enabled = True
- Application.CommandBars("column").Controls(6).Enabled = True
- End Sub
通过以上设置，则在sheet1工作表中无法通过邮件菜单选中“行高”、“列宽”及“插入列”的命令，而在其他工作表中可以正常使用。
详见附件。
 工作簿1.rar
|
2楼
水星钓鱼 |
- 通过以上设置，则在sheet1工作表中无法通过邮件菜单选中“行高”、“列宽”及“插入列”的命令，而在其他工作表中可以正常使用。
其中的邮件应该是右键 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一