Home  |  Pesquisa  | Você está em: Computadores
computadores > desabilitar o teclado

question

Como posso desativar o teclado dentro de uma macro vba?

Como posso desativar o teclado no VBA?
Estou usando um aplicativo de trabalho que permite que a macro. Quando a macro é executada, eu preciso para impedir que o usuário usando o teclado
Direito, todos os hackers melhores usam o visual basic para aplicativos
resposta Resposta
' Macro para desativar a entrada de teclado.

Sub KeyboardOff()



' Define CTRL + D para ativar o KeyboardOn.

Application.OnKey "^ d", "KeyboardOn"

Application.DataEntryMode = True



EndSub



' Macro para restaurar a entrada de teclado.

Sub KeyboardOn()



Application.DataEntryMode = False



EndSub

=========================

Isso poderia funcionar também.

Opção explícita

Confidencial Declare função BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Activate()

Função DoEvents

' bloquear o mouse e entrada do teclado

True BlockInput

' espere 10 segundos antes de desbloqueá-lo

Sono 10000 ' por 10 segundos

' Desbloquear o mouse e entrada do teclado

False BlockInput

Descarregar Me

EndSub

ComentáriosComentários
Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..

Guest
Nome*
Comentários*

HTML não é permitido!
Verificação*
Image Code

Digite os caracteres que aparecem na imagem por isso sabemos que você é humano!

Atualizações
Receber um email quando alguém acrescenta outro comentário a esta pergunta


Usuários da rede social
Estas pessoas adicionaram comentários ou respostas recentemente

Vitória SalesCarlos Pereira BrazMilton AlmeidaDjAlexandre LimaLeninha TabosaVinícius Alves JoaquimNathália MessiasDavid DiasLuciana GomesR Fênix DCHadija BernardaNiceeFabricio Agnolin


Topo da página


Home  Terms
Copyright © Accelerated Ideas 2005-2024
All rights reserved