有奖:VBA禁用右建复制剪切功能

戏子

<p>要求只禁用右键复制剪切功能,其它保留</p><p>五分钟后结贴[em05]</p>

element

保护工作表某选项[em05]

戏子

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>element</i>在2008-2-15 14:30:00的发言：</b><br/>保护工作表某选项[em05]</div><p>抢劫的来了[em06]</p><p>要求写出代码</p>

hxqzccct

[em01][em01][em01][em01]

element

<p>Sub Disable()<br/>&nbsp;&nbsp;&nbsp; Dim ctl As CommandBarControl<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp; For Each ctl In Application.CommandBars("Cell").Controls<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ctl.ID = 21 Or ctl.ID = 19 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctl.Visible = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctl.Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next<br/>End Sub</p><p>Sub Enablse()<br/>&nbsp;&nbsp;&nbsp; Dim ctl As CommandBarControl<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp; For Each ctl In Application.CommandBars("Cell").Controls<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ctl.ID = 21 Or ctl.ID = 19 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctl.Visible = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctl.Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next<br/>End Sub</p>

[此贴子已经被作者于2008-2-15 14:39:06编辑过]

element

搞定[em05]

hhzjxss

<p>这样行不行？</p><p>rivate Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)<br/>&nbsp;&nbsp;&nbsp; Application.CommandBars("Cell").Controls("复制(&amp;C)").Enabled = False '屏蔽单元格右键菜单中的复制命令<br/>&nbsp;&nbsp;&nbsp; Application.CommandBars("Cell").Controls("剪切(&amp;T)").Enabled = False '屏蔽单元格右键菜单中的剪切命令<br/>End Sub<br/></p>

[此贴子已经被作者于2008-2-15 14:51:48编辑过]

戏子

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hhzjxss</i>在2008-2-15 14:51:00的发言：</b><br/><p>这样行不行？</p><p>rivate Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)<br/>&nbsp;&nbsp;&nbsp; Application.CommandBars("Cell").Controls("复制(&amp;C)").Enabled = False '屏蔽单元格右键菜单中的复制命令<br/>&nbsp;&nbsp;&nbsp; Application.CommandBars("Cell").Controls("剪切(&amp;T)").Enabled = False '屏蔽单元格右键菜单中的剪切命令<br/>End Sub<br/></p><br/></div><p></p>[em17]

element

<p>这种方式只适合简体中文版</p><p>而且，还有可能的漏洞</p>

戏子

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>element</i>在2008-2-15 14:38:00的发言：</b><br/><p>Sub Disable()<br/>&nbsp;&nbsp;&nbsp; Dim ctl As CommandBarControl<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp; For Each ctl In Application.CommandBars("Cell").Controls<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ctl.ID = 21 Or ctl.ID = 19 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctl.Visible = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctl.Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next<br/>End Sub</p><p>Sub Enablse()<br/>&nbsp;&nbsp;&nbsp; Dim ctl As CommandBarControl<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp; For Each ctl In Application.CommandBars("Cell").Controls<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ctl.ID = 21 Or ctl.ID = 19 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctl.Visible = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctl.Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next<br/>End Sub</p><br/></div><p></p><p>&nbsp;</p><p>没抢到吧?发一个币币鼓励一下[em07]</p>