Este fórum está sendo desativado

[Falcao98]

Bom dia!

Pessoal, estou com o seguinte problema: Estou trabalhando em um sisteminha simples de cadastro, porém a propriedade "Application.EnableEvents = False" parece não funcionar dentro do formulário, mesmo eu a colocando antes de mudar o valor da ComboBox, o evento "Change" é disparado. Meu código está da seguinte forma:

Private Sub UserForm_Activate()
Application.EnableEvents = False

With frmProd
.cmbCod = Sheets("Produtos").Range("A1048576").End(xlUp).Value + 1 (Aqui o evento Change é disparado, mesmo com a propriedade EnableEvents estando em False)
.cmbMarca.RowSource = "_Marcas"
.cmbMarca = "Selecione uma marca"
.cmbUnidade = "Selecione uma Unidade"
.cmbUnidade.RowSource = "_UNIDADE_VENDA"
.btAlterar.Visible = False
.btExcluir.Visible = False
End With

Application.EnableEvents = False

End sub

Como faço para desabilitar os eventos no formulário quando algum valor é inserido na combo?
Já vasculhei a internet e não encontrei nada, se alguém puder dar uma força aí, vlw

[eduardogrigull]

Aqui está funcionando normalmente... Voce já tentou por esse codigo no evento Initializate ao invés de Activate? E está como "False" lá embaixo no seu código... Tenta anexar uma planilha só com o formulário caso persista o erro...

[Falcao98]

Segue anexo planilha com o formulário. Depurando você consegue ver que mesmo depois de executar a propriedade "Application.EnableEvents = False", ele chama o Evento Change.

[eduardogrigull]

Pelos rápidos testes, percebi que o EnableEvents só funciona fora da area de userforms. Resolvi criando uma variável bem simples, que voce poe no evento Change do TextBox...
Veja se resolve

[Falcao98]

Boa!!
Me ajudou bastante vlw

[eduardogrigull]

Não se esqueça de marcar o tópico como resolvido, caso tenha sido resolvido, e clicar em obrigado caso tenha ajudado!