Desabilitar Eventos em Formulários
Enviado: 01 Set 2019 às 15:52
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
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