Iniber eventos

[Bráulio Gerson de Lima Fi]

Gostaria de inibir eventos (impedir o evento Change), para "List Box" ou "Combo Box", enquanto a macro executa outros procedimentos.

 

[Greg Truby]

Para apagar:

application.enableevents = false

y obviamente

application.enableevents = true

para encenderlos otra vez.

 

[Bráulio Gerson de Lima Fi]

eventos

Já tentei, antes de contacta-los. Infelizmente não funciona.

 

[Greg Truby]

¿Usted quiere prevenir un cambio en tales controles? ¿O quiere permitir cambios pero que los cambios no provoquen eventos?

 

[Bráulio Gerson de Lima Fi]

estou executando um LOOP que altera um listbox várias vezes. durante o loop não que permitir que provoquem eventos.

 

[Greg Truby]

Sí, es cierto. Se me olvidó eso. Entonces use una variable local para eso.

Private m_booEnableEvents As Boolean

Private Sub btnToggleEvents_Click()
    m_booEnableEvents = Not m_booEnableEvents
End Sub

Private Sub ListBox1_Change()
    If Not m_booEnableEvents Then Exit Sub
    '// ...code...
End Sub

Private Sub UserForm_Initialize()
    m_booEnableEvents = True
End Sub

 

[Bráulio Gerson de Lima Fi]

Grato. Já utilizo esta solução há algum tempo.

Puede = True ou Puede=False

Espero que a Microsoft traga uma nova abordagem, no futuro.