如何在EXCEL中实现禁止复制粘贴
有一些特殊的需要,效果就是,在EXCEL里禁止进行复制粘贴的操作,但是可以进行其他的操作,所以教我“保护工作表”的朋友就不用说了……尽管我很想给你分数,但是你可否再告诉我...
有一些特殊的需要,效果就是,在EXCEL里禁止进行复制粘贴的操作,但是可以进行其他的操作,所以教我“保护工作表”的朋友就不用说了……
尽管我很想给你分数,但是你可否再告诉我,在哪里输入这些东西~~~还有,那汉字也输入吗 展开
尽管我很想给你分数,但是你可否再告诉我,在哪里输入这些东西~~~还有,那汉字也输入吗 展开
7个回答
展开全部
Sub cc()
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
帮你说一下,这是VB代码。在EXCEL界面下按ALT+F11键,或在工具,宏,VB编辑器打开的窗口中靠右边的大窗口中粘贴入这一段代码。就可以了。一个单引号加中文,那是注释,就是向你表达,下面这段代码的作用。 可以一起粘贴进去。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我也说一句,这个是一剂毒药,别忘了在Excel退出前加解药,否则,其它正常的工作簿也不能使用复制粘贴,了!解药就是把那些“False”改为True,删除onkey后面的“,""""”
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询