[已解决]关于屏蔽右键功能

hytsky · 发表于 2011-9-14 11:33

下面的代码是屏蔽所有表的右键功能，
Sub DisBar()
Dim myBar As CommandBar
For Each myBar In CommandBars
      If myBar.Type = msoBarTypePopup Then
         myBar.Enabled = False
      End If
Next
End Sub
但我想只屏蔽掉我指定表的右键的功能这个要怎么改请高手帮忙指导一下，谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2011-9-14 16:18

禁用右键2.rar (7.45 KB, 下载次数: 26)

chenjinghuan123 · 发表于 2011-9-14 13:27

谢谢了，不懂顶起

爱疯 · 发表于 2011-9-14 16:18

禁用右键2.rar (7.45 KB, 下载次数: 26)

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