请问如何禁用EXCEL自带的右键菜单而改用自已右键菜单

lhd_roy · 发表于 2005-10-24 22:10

因为感觉EXCEL的界面做编缉很好所以提了这个问题。

来生缘 · 发表于 2005-10-24 22:49

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim cmb0, cmb1, cmb2 As CommandBarControl For Each cmb0 In Application.CommandBars("cell").Controls cmb0.Delete Next Set cmb1 = Application.CommandBars("cell").Controls.Add(Type:=msoControlButton) Set cmb2 = Application.CommandBars("cell").Controls.Add(Type:=msoControlButton) With cmb1 .Caption = "修改" .FaceId = 7 .OnAction = "Data_Amend" End With With cmb2 .Caption = "删除" .FaceId = 21 .OnAction = "Data_Delete" End With End Sub

恢复右键 Application.CommandBars("cell").Reset

ztj1967 · 发表于 2006-1-18 22:58

好,正在找

asjm · 发表于 2011-5-15 20:35

写这么一段代码,如果我能懂一点看都不看了
分句分好久没法分出能运行的句子来~~~
无聊至极了!~~

335081548 · 发表于 2011-5-15 21:14

工作表右键事件代码：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim cmb0, cmb1, cmb2 As CommandBarControl
For Each cmb0 In Application.CommandBars("cell").Controls
cmb0.Delete
Next
Set cmb1 = Application.CommandBars("cell").Controls.Add(Type:=msoControlButton)
Set cmb2 = Application.CommandBars("cell").Controls.Add(Type:=msoControlButton)
With cmb1
.Caption = "修改" '菜单名称
.FaceId = 7 '图标ID
.OnAction = "Data_Amend" '关联要运行宏的名称(宏名）
End With
With cmb2
.Caption = "删除"
.FaceId = 21
.OnAction = "Data_Delete"
End With
End Sub

复制代码

右键禁用了就要恢复下面是恢复右键代码：

Sub 恢复右键()
Application.CommandBars("cell").Reset
End Sub

复制代码

[ 本帖最后由 335081548 于 2011-5-15 21:16 编辑 ]

120HYH · 发表于 2011-5-17 09:40

谢谢分享啊。

mqr66 · 发表于 2011-10-22 15:32

多谢分享，学习了

刘志文 · 发表于 2011-10-22 21:53

谢谢分享，学习了!

02761752696 · 发表于 2017-9-4 08:48

谢谢分享

		自动登录	找回密码
密码			免费注册

请问如何禁用EXCEL自带的右键菜单而改用自已右键菜单

回复 2楼 来生缘 的帖子

回复 2楼来生缘的帖子