乐高好朋友下载:excel?VBA?禁用“剪切”的方法

来源：百度文库 编辑：偶看新闻 时间：2024/05/10 17:10:59
excel VBA 禁用“剪切”的方法
(2010-01-08 13:22:38)
转载▼
标签： excel
技巧
教育
分类： №87:EXCEL
excel VBA 禁用“剪切”的方法
此方法只会禁用本工作薄的“剪切”功能，不会影响其他工作薄使用“剪切”功能。而对于工作表之间，也可以类似使用。
其思路为：当工作薄被激活（Activate）时，进行禁用某些功能，当切换到别的工作薄后（Deactivate）解除相应的禁用。当然关闭本工作薄前（BeforeClose）也该解除禁用。
代码如下：复制到ThisWorkBook代码区（在office 2003 正常，在office xp等版本设置可能有所不同）
Private Sub Workbook_Activate() '本工作薄等到焦点（激活）时，相应地禁用“剪切”
'禁用菜单栏"剪切",里面的序号代表位置,2和3是2003里的,XP中应该不同,自己修改
Application.CommandBars(1).Controls(2).Controls(3).Enabled = False
'禁用右键中的"剪切",序号1代表第一个选择,2代表复制(这是我的,自己修改你自己的)
Application.CommandBars("cell").Controls(1).Enabled = False
'禁用键盘"Ctrl+x",恢复方法:Application.OnKey "^x"
Application.OnKey "^x", ""
'禁用移动(会把拖动也禁用)
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭前 解除
'解除禁用
Application.CommandBars(1).Controls(2).Controls(3).Enabled = True
Application.CommandBars("cell").Controls(1).Enabled = True
Application.OnKey "^x"
Application.CellDragAndDrop = True
End Sub
Private Sub Workbook_Deactivate() '本工作薄失去焦点时，相应地解除禁用
'解除禁用
Application.CommandBars(1).Controls(2).Controls(3).Enabled = True
Application.CommandBars("cell").Controls(1).Enabled = True
Application.OnKey "^x"
Application.CellDragAndDrop = True
End Sub
Private Sub Workbook_Open() '打开时， 禁用“剪切”
'    '禁用菜单栏"剪切",里面的序号代表位置,2和3是2003里的,XP中应该不同,自己修改
'    Application.CommandBars(1).Controls(2).Controls(3).Enabled = False
'
'    '禁用右键中的"剪切",序号1代表第一个选择,2代表复制(这是我的,自己修改你自己的)
'    Application.CommandBars("cell").Controls(1).Enabled = False
'
'    '禁用键盘"Ctrl+x",恢复方法:Application.OnKey "^x"
'
'    Application.OnKey "^x", ""
'    '禁用移动(会把拖动也禁用)
'    Application.CellDragAndDrop = False
End Sub
以后再补充。
excel vba ontime的问题 excel中VBA的问题 Excel VBA Excel VBA vba excel 求excel 中VBA的学习资料 那里下载EXCEL VBA编程的电子书籍 关于一个excel vba编程的问题 请教：一个EXCEL的VBA编程问题 excel的剪切版在哪个区域？ 禁用usb的方法 excel VBA小问题 EXCEL VBA 问题 excel VBA教程电子书 Excel VBA 高手进 EXCEL VBA 基础教程下载 Excel VBA中EXCEL对象？ 在excel的VBA中计算某列中数据的最大值！！！！ excel的vba中绘图的一些问题 关于Excel的VBA的小问题!急!!! 如何用VBA/VB来设置Excel的格式 问一个有关excel VBA编程的问题 请问那里可以下载到Excel VBA的实例教程？ 如何使用excel vba获得当前电脑的信息？