{"id":174,"date":"2007-08-31T16:14:00","date_gmt":"2007-08-31T16:14:00","guid":{"rendered":"http:\/\/www.webmundi.com\/?p=174"},"modified":"2025-03-20T18:03:39","modified_gmt":"2025-03-20T21:03:39","slug":"bloquear-copiar-colar-textbox-visual-basic","status":"publish","type":"post","link":"http:\/\/localhost\/cmswebmundicom\/desenvolvimento-de-sistemas\/bloquear-copiar-colar-textbox-visual-basic\/","title":{"rendered":"Bloqueando fun\u00e7\u00f5es Copiar e Colar em caixas de texto"},"content":{"rendered":"
Em algumas situa\u00e7\u00f5es, pode ser necess\u00e1rio impedir que o usu\u00e1rio copie ou cole dados<\/strong> em uma TextBox<\/strong>. No Visual Basic<\/strong>, isso pode ser feito interceptando eventos do teclado.<\/p> O evento ✔ CTRL+C<\/strong> \u2192 C\u00f3digo ✅ KeyAscii = 3<\/strong> \u2192 Impede o uso de CTRL+C<\/strong> (Copiar). Se quiser evitar que o usu\u00e1rio clique com o bot\u00e3o direito<\/strong> e copie\/cole pelo menu de contexto, desative a propriedade Essa fun\u00e7\u00e3o pode ser \u00fatil para: Em algumas situa\u00e7\u00f5es, pode ser necess\u00e1rio impedir que o usu\u00e1rio copie ou cole dados em uma TextBox. No Visual Basic,…<\/p>\n","protected":false},"author":2,"featured_media":41906,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_kadence_starter_templates_imported_post":false,"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"footnotes":""},"categories":[13,10],"tags":[28,14,31],"class_list":["post-174","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-desenvolvimento-de-sistemas","category-visual-basic","tag-desenvolvimento-de-sistemas","tag-programacao","tag-visual-basic"],"yoast_head":"\nBloqueando CTRL+C (Copiar) e CTRL+V (Colar)<\/h2>
KeyDown<\/code><\/strong> n\u00e3o consegue detectar essas combina\u00e7\u00f5es, mas o evento
KeyPress<\/code><\/strong> pode captur\u00e1-las pelos c\u00f3digos ASCII<\/strong> das teclas:<\/p>
3<\/code>
✔ CTRL+V<\/strong> \u2192 C\u00f3digo 22<\/code><\/p>
C\u00f3digo para Bloquear Copiar e Colar<\/h3>
Private Sub Text1_KeyPress(KeyAscii As Integer)\n If KeyAscii = 3 Or KeyAscii = 22 Then KeyAscii = 0\n ' CTRL+C = 3 e CTRL+V = 22 na tabela ASCII\nEnd Sub\n<\/code><\/pre>
Explica\u00e7\u00e3o do C\u00f3digo<\/h2>
✅ KeyAscii = 22<\/strong> \u2192 Impede o uso de CTRL+V<\/strong> (Colar).
✅ KeyAscii = 0<\/strong> \u2192 Cancela a a\u00e7\u00e3o da tecla pressionada.<\/p>Bloqueando Copiar e Colar com o Mouse<\/h2>
Enabled<\/code> do Menu Padr\u00e3o da Caixa de Texto<\/strong>:<\/p>
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)\n If Button = 2 Then Cancel = True ' Bloqueia o menu de contexto do bot\u00e3o direito\nEnd Sub\n<\/code><\/pre>
Exemplo Pr\u00e1tico<\/h2>
✔ Campos de senha ou dados sens\u00edveis<\/strong>, evitando c\u00f3pias indesejadas.
✔ Sistemas de cadastro<\/strong>, impedindo colagens de valores incorretos.
✔ Ambientes controlados<\/strong>, onde \u00e9 necess\u00e1rio restringir o uso do CTRL+C<\/strong> e CTRL+V<\/strong>.<\/p>
","protected":false},"excerpt":{"rendered":"