如何使用户窗体中的文本框控件不能接受粘贴操作？

作者：绿色风分类：时间：2022-08-17 浏览：151

楼主水星钓鱼	Q：昨日在淘宝网上填写实名认证时发现在填写银行账号的框中不能接受粘帖操作，只能用键盘输入，是否能够在VBA中也实现这样的功能呢？ A：假设工作簿中有一个用户窗体(UserForm1)，窗体上有一个文本框TextBox1，则通过文本框TextBox1的键盘的KeyDown事件可以捕捉用户的击键，并对按键产生响应，即设置代码使文本框不接受粘贴操作（即Ctrl+V)。代码如下： Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Shift返回的值分别表示 SHIFT, CTRL和ALT '这3个键的状态 'Shift=2表示Ctrl键被按下 'Keycode表示按下的键的代码 '可以用KeyCodeConstants来判断 'KeyCode = vbKeyV 表示是否是按下了键盘上的V If Shift = 2 And KeyCode = vbKeyV Then '如果Ctrl+V组合键被按下了，则锁定文本框 '使其不能编辑 Me.TextBox1.Locked = True Else Me.TextBox1.Locked = False End If End Sub 附件如下：文本框不能接受粘贴操作.rar
2楼 omnw	好帖,顶起来
3楼水吉果果	学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表