none
excel2013禁止单元格复制黏贴 RRS feed

  • 问题

  • 技术问题描述: 
          excel2013版VBA代码报错
    问题出现环境(软件/硬件):
     
             excel2013版  
    问题重现步骤:
    1.打开excel2013,找到“开发工具”,打开“visual basic” 
    2.输入一下代码。
    3.保存关闭。
    重新打开后弹出调试错误。
    Private Sub Workbook_Open()
    With Application
             '屏蔽常用工具栏剪切、复制、粘贴、保存
            .CommandBars(3).Controls("剪切(&T)").Enabled = False
            .CommandBars(3).Controls("复制(&C)").Enabled = False
            .CommandBars(3).Controls("粘贴(&P)").Enabled = False
            '屏蔽单元格右键菜单中的剪切、复制、粘贴命令
            .CommandBars("Cell").Controls("剪切(&T)").Enabled = False
            .CommandBars("Cell").Controls("复制(&C)").Enabled = False
            .CommandBars("Cell").Controls("粘贴(&P)").Enabled = False
            '屏蔽编辑菜单中的剪切、复制、粘贴命令
            .CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = False
            .CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = False
            .CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = False
            '屏蔽键盘剪切、复制、粘贴键
            .OnKey "^x", ""
            .OnKey "^c", ""
            .OnKey "^v", ""
    End With
    End Sub
     
    如果去掉红色三行代码,其余代码可以运行。
               
    初步分析: 
          excel2013版取消了上述红色标注行的功能。
    2016年8月23日 1:44

答案

全部回复