VBA EXCEL - BLOQUEAR DIGITAÇÃO DE NUMEROS

[Kelvim]

Boa tarde

 

Eu estou tentando bloquear que os usuários de uma certa planilha digitem números . Eu tenho um código que eu uso para bloquear a digitação de letras, quando o mesmo digita aquela letra determinada não acontece nada na planilha continua em branco.

 

Sub Desabilitando_teclas()

 

'*** letras ***

 

Application.OnKey "a", "" 'A

Application.OnKey "b", "" 'B

 

 

End Sub

 

Entretanto este mesmo código não funciona para números alguém poderia me ajudar.

 

Att

[Basole]

Ola Kelvim, veja se esta macro atende suas necessidades: 

 

1 - Copie e cole em um modulo o cod abaixo:

     (veja, que voce pode incluir outras teclas (caracteres)  nesta linha do codigo:  

    TeclaArray = Array("1", "2", "3", "#", "4", "5", "6", "7", "8", "9", "0") ) 

Sub Desabilita_Numeros()    Dim TeclaArray As Variant     Dim Tecla As Variant     TeclaArray = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0")      For Each Tecla In TeclaArray          Application.OnKey Tecla, "Mensagem"      Next Tecla  End SubSub Mensagem()    MsgBox "Aperte outra tecla"End Sub

2 -  Copie e cole no editor de "Esta_Pasta_de_Trabalho"  cod abaixo:

      (Para habilitar a macro tomaticamente,  ao abrir a pasta de trabalho)    

Private Sub WorkBook_Open()       MsgBox "Habilitado a macro: Desabilita_Numeros()"       Call Desabilita_NumerosEnd Sub

  * se preferir desabilite as mensagens incluidas nos codigos  

[minoso]

Precisa de macro pra isso? Não bastaria realizar a configuração do que precisa pelo VALIDAÇÃO DE DADOS (interface Excel)?

[Kelvim]

Ola Kelvim, veja se esta macro atende suas necessidades: 

 

1 - Copie e cole em um modulo o cod abaixo:

     (veja, que voce pode incluir outras teclas (caracteres)  nesta linha do codigo:  

    TeclaArray = Array("1", "2", "3", "#", "4", "5", "6", "7", "8", "9", "0") ) 

Sub Desabilita_Numeros()    Dim TeclaArray As Variant     Dim Tecla As Variant     TeclaArray = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0")      For Each Tecla In TeclaArray          Application.OnKey Tecla, "Mensagem"      Next Tecla  End SubSub Mensagem()    MsgBox "Aperte outra tecla"End Sub

2 -  Copie e cole no editor de "Esta_Pasta_de_Trabalho"  cod abaixo:

      (Para habilitar a macro tomaticamente,  ao abrir a pasta de trabalho)    

Private Sub WorkBook_Open()       MsgBox "Habilitado a macro: Desabilita_Numeros()"       Call Desabilita_NumerosEnd Sub

  * se preferir desabilite as mensagens incluidas nos codigos  

 

 

Boa noite

 

Muito obrigado, o código funcionou corretamente.

 

Atenciosamente

 

Kelvim

Precisa de macro pra isso? Não bastaria realizar a configuração do que precisa pelo VALIDAÇÃO DE DADOS (interface Excel)?

 

 

Neste caso realmente necessitarei de um código, que será alterado de acordo com a ação.

 

 

Att

Ola Kelvim, veja se esta macro atende suas necessidades: 

 

1 - Copie e cole em um modulo o cod abaixo:

     (veja, que voce pode incluir outras teclas (caracteres)  nesta linha do codigo:  

    TeclaArray = Array("1", "2", "3", "#", "4", "5", "6", "7", "8", "9", "0") ) 

Sub Desabilita_Numeros()    Dim TeclaArray As Variant     Dim Tecla As Variant     TeclaArray = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0")      For Each Tecla In TeclaArray          Application.OnKey Tecla, "Mensagem"      Next Tecla  End SubSub Mensagem()    MsgBox "Aperte outra tecla"End Sub

2 -  Copie e cole no editor de "Esta_Pasta_de_Trabalho"  cod abaixo:

      (Para habilitar a macro tomaticamente,  ao abrir a pasta de trabalho)    

Private Sub WorkBook_Open()       MsgBox "Habilitado a macro: Desabilita_Numeros()"       Call Desabilita_NumerosEnd Sub

  * se preferir desabilite as mensagens incluidas nos codigos  

 

 

Basole

 

Gostaria de saber se eu porventura fiz algo errado.

 

Fiz conforme você disse, mas não deu muito certo.

 

Att