积木首页 - 学院 - 软件测试 - 技术百科 - 问答 - 黄页 - 手册 - 站长工具 - 社区
登录 | 注册
    
群组 >> Office使用

Office使用

共有491位成员   人气指数 -   最新排名 -

【话题】关于vba屏蔽excel中复制功能的问题

2010-01-25 09:07:47 来自:tanzheng 浏览数:6
Dim CmdCtrls As CommandBarControls   
  Dim Cmd As CommandBarControl
Sub ProCopy()     
Set CmdCtrls = Application.CommandBars.FindControls(ID:=19)     
For Each Cmd In CmdCtrls         
Cmd.Enabled = False   
Next     
Application.CellDragAndDrop = False
    Application.OnKey ("^c"), ""
End Sub 
    上面这段代码可以屏蔽掉复制功能,但是我想只在当前工作表中禁用此功能,在其他工作表中能够使用。
比如说,我新建一个excel,我希望在新建的工作表中能够使用复制功能
请问应该怎么改
 
sichanglin回复于25日09点19分 
在需要屏蔽的工作表中加入以下代码
VB code Private Sub Worksheet_Activate() Dim cc As CommandBarControl For Each cc In Application.CommandBars.FindControls(ID:=19) cc.Enabled = False Next Application.CellDragAndDrop = False Application.OnKey ("^c"), "" End Sub Private Sub Worksheet_Deactivate() Dim cc As CommandBarControl For Each cc In Application.CommandBars.FindControls(ID:=19) cc.Enabled = True Next Application.CellDragAndDrop = True Application.OnKey ("^c") End Sub
Office使用的其他话题...

PHP: PHP技巧 - PHP基础 - PHP实例 - PHP错误代码 - 正则表达式 - 热门脚本语言: DOS命令 - vbs - CSS/HTML - python - perl - ruby - shell编程 - Powershell

JS: node.js - JS基础 - extjs - jQuery - JavaScript技巧

网址导航成语大全积木 TinyMCE 服务邮箱: Gimoohr(#)gmail.com
Copyright © 2008 Gimoo.Net  京ICP备05050695号