恢复Excel粘贴复制功能

恢复Excel粘贴复制功能
今天比较郁闷,回家处理剩下的工作,打开Excel,一看悲剧了~!
单击单元格右键想复制单元格一看,坑爹啊~灰色的?
禁止效果
我以为中毒了,还把Excel重装了好几遍,发现依旧,才发现前几天我写过一篇关于禁止粘贴复制的文章,顿时恍然大悟~原来是这家伙搞的鬼~
只能依样画葫芦了,上代码:
 
  1. Private Sub Workbook_Open()   
  2.     With Application   
  3.         ‘启用常用工具栏剪切、复制、粘贴   
  4.         .CommandBars(3).Controls("剪切(&T)").Enabled = True   
  5.         .CommandBars(3).Controls("复制(&C)").Enabled = True   
  6.         .CommandBars(3).Controls("粘贴(&P)").Enabled = True   
  7.         ‘启用单元格右键菜单中的剪切、复制、粘贴命令   
  8.         .CommandBars("Cell").Controls("剪切(&T)").Enabled = True   
  9.         .CommandBars("Cell").Controls("复制(&C)").Enabled = True   
  10.         .CommandBars("Cell").Controls("粘贴(&P)").Enabled = True   
  11.         ‘启用编辑菜单中的剪切、复制、粘贴命令   
  12.         .CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = True   
  13.         .CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = True   
  14.         .CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = True   
  15.  End With   
  16. End Sub   
原先这代码太狠了~只要启用过一次就会永久生效,坑死我了,还好依样画葫芦,返回~用过禁止代码的童鞋,赶紧恢复下。
分享到: