Bom dia!!

Como não foi dito em qual objeto (Userform, na guia etc), eu devo determinar onde, pois não sou adivinho!!

Insira o código dentro do Módulo de Planilha!!!!!!!

Private Sub Worksheet_Change(ByVal Target As Range)

Dim TestCell
Dim RE As Object
Dim REMatches As Object

Set RE = CreateObject("vbscript.regexp")
With RE
    .MultiLine = False
    .Global = False
    .IgnoreCase = True
    .Pattern = "[e]"
End With

For Each TestCell In Target.Cells
    Set REMatches = RE.Execute(TestCell.Value)
    If REMatches.Count > 0 Then
        MsgBox "Tecla invalida:" & TestCell.Address & " - " & TestCell.Value
        TestCell.Value = ""
    End If
Next

End Sub

Att

Desculpas rsr
Cara encontrei esse código:

Application.SendKeys ("{HELP}")

Estou com uma textbox só não sei o nome das teclas "[" e "]"

É que estou um form de pesquisa e quando eu digito [ ou ] da erro

Bom dia!!

Eu não sei se entendi o que quer...tente...

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

Att

Pessoa baixem a planilha que postei vão ver que ta dando erro ao clicar na tecla ( { [ ª )

Boa noite!!

Já tentou isso...?

Private Sub TextBox1_Change()
    If Me.TextBox1.text = "[" Or Me.TextBox1.text = "]" Then
         Me.TextBox1.text = ""
    End If
End Sub

Eu não pude testar seu arquivo, talvez amanhã.

Att

Valew cara brigadão...

fiz com esse If só que foi sem o .Text

Bom dia!!

Se foi útil, então por gentileza, click na mãozinha!!

Obrigado pelo retorno!

Att