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

' 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ários

Mais como isso

computadores > desabilitar o teclado

Outras Respostas Populares

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

Topo da página