[Resolvido]Desativar a Tecla Tab

Bom dia, preciso de uma macro que desabilite a Tecla TAB e o comando para ativa-lo novamente.

Obrigado

Andre

Qual a finalidade? Pois dependendo dela, a outra saída mais adequada.

Sim, diga-nos qual a finalidade por curiosidade, mas se quiser prosseguir é assim;

O seu formulario tem de ter o KeyPreview = True

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
 MsgBox "Tecla Tab desabilitada.", vbInformation, "Alerta"
 KeyCode = 0
End If
End Sub

É que coloquei uma opcao no meu Form de vendas, que ao ser carregado ele abre num tamanho, ao entar com os itens na caixa de texto, o Form se redimensiona maior e aparece mais detalhe do Form. Mas antes de abrir o redimensionamento, se eu precionar o TABs a parte oculta aparece, nao quero que apare,ca, por isso quero bloquear o Tab e caso precise , habilito ele num botao.

Andre

onde vejo isso : O seu formulario tem de ter o KeyPreview = True

Folha de propriedades do formulário, guia Eventos, última opção (Visualizar teclas)

Pode desaativar o TAB e activar o "ENTER" desta forma

Private Sub Form_KeyPress(KeyAscii As Integer)
'Primeiro para eliminar o evento do TAB
If KeyAscii = 9 Then '9 é a tecla ASCII do TAB
KeyAscii = 0
End If
'Depois para activar o Enter, enviando pelo SendKeys o evento TAB
If KeyAscii = 13 Then '13 é a tecla ASCII do Enter
SendKeys "{Tab}"
KeyAscii = 0
End If
End Sub

Não esqueça de activar nas propriedades do Form, o VerChave para Sim, pois caso contrário não irá funcionar.

Não esqueça de activar nas propriedades do Form, o VerChave para Sim, pois caso contrário não irá funcionar.

Nao achei esse verchave nas propriedades do Form, aqui a versao e 2013

VerChave = KeyPreview = Visulizar Teclas

Pré-visualizar chave=Sim ----em português se o sistema estiver em PT

Muito Obrigado.

Andre