恢复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   
原先这代码太狠了~只要启用过一次就会永久生效,坑死我了,还好依样画葫芦,返回~用过禁止代码的童鞋,赶紧恢复下。
分享到:

7 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 郑州白癜风医院

    呵呵,经验分享我是最喜欢看的,不需要我自己思考的。

  2. 歪SIR

    大哥这叫自作自受 哈哈

    1. Kael.Z

      没办法,谁叫我爱折腾呢~~~

  3. 天玉有双女性博客

    博主对办公软件肯定是相当熟了!

    1. Kael.Z

      略知一二吧~谈不上精通~

  4. 混小子

    这个东西不错 呵呵

    1. Kael.Z

      坑死我了~