none
VBA Excel - Bloquear Entrada Manual de Dados em Textbox RRS feed

  • Pergunta

  • Mestres bom dia!

    Por favor, eu gostaria que uma Textbox aceitasse somente valores inseridos através de leitor de código de barras. Escrevi os códigos abaixo para tentar bloquear a entrada manual do dados, ou seja, via teclado. No entanto, os códigos abaixo bloqueiam a entrada de dados na Textbox de uma forma geral.

    Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        KeyAscii = 0
    End Sub

    Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        KeyCode = 0
    End Sub

    Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        KeyCode = 0
    End Sub

    Abraço,
    Logístico


    segunda-feira, 14 de julho de 2014 01:10

Todas as Respostas

  • Logístico,

    Já tentou definir o objeto "TextBox1" como "readonly"?

    Veja um exemplo:

    TextBox1.Enabled = False

    Se ajudou na sua solução, não esqueça de marcar como resposta !

    Abraços,

    Durval Ramos
    Microsoft Partner | MTA | MCSA - SQL Server 2012 | MCSE - Data Platform
    ----------------------------------
    Se foi resolvido clique "Marcar como resposta" e se foi útil "Votar como Útil"
    quarta-feira, 23 de julho de 2014 18:25
  • Alo Interessado.!!

    Experimente fazer assim:

    Imaginando por exemplo que sua Form seja UserForm1 e sua TextBox seja TextBox1.

    Mantenha seus códigos acima já existentes e acrescente o seguinte:

    Faça com que seu leitor de código de barras descarregue a leitura numa célula, por exemplo: Range("A1")

    Através de um botão na Form ou através de um Evento, coloque o seguinte código: Userform1.TextBox1.text= Range("A1")

    Boa sorte

    sábado, 26 de julho de 2014 20:40