恢复Excel粘贴复制功能

• VBA • 7 条评论 • •9,661 次查阅
恢复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

      坑死我了~