geraldo pereira 0 Posted March 9 Report Share Posted March 9 bom dia mestres do VBA estou tendo uma dificuldade de adaptar esta função, Public Function DesabilitarTextBox(formulario As UserForm) Dim controle As Control For Each controle In formulario.Controls If TypeOf controle Is MSForms.Textbox Then controle.Locked = True 'Me.CboxApto.BackColor = corDisabledTextBox End If Next End Function ela desabilita todas as texts e eu preciso desabilitar somente duas tente várias maneiras não conseguir espero que alguém posso me ajudar, desde já agradeço a atenção ora de quem se prontificar Geraldo Pereira Quote Link to post Share on other sites
0 Alyson Ronnan Martins 0 Posted March 9 Report Share Posted March 9 Boa tarde @geraldo pereira Olhei o seu código e notei que você mandou fazer um "loop" por todos os controles do tipo textbox no seu formulário: For Each controle In formulario.Controls Se você já sabe qual campo quer desativar (como você descreveu que são dois) você pode apenas colocar o nome do campo diretamente: formulario.txtNome.enable = false Olha se funciona e da um retorno. Quote Link to post Share on other sites
Question
geraldo pereira 0
bom dia mestres do VBA
estou tendo uma dificuldade de adaptar esta função,
Public Function DesabilitarTextBox(formulario As UserForm)
Dim controle As Control
For Each controle In formulario.Controls
If TypeOf controle Is MSForms.Textbox Then
controle.Locked = True
'Me.CboxApto.BackColor = corDisabledTextBox
End If
Next
End Function
ela desabilita todas as texts e eu preciso desabilitar somente duas tente várias maneiras não conseguir
espero que alguém posso me ajudar, desde já agradeço a atenção ora de quem se prontificar
Geraldo Pereira
Link to post
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.