Evento Change do Worksheet Desabilitado ou não Funcional

[jefferson.microni]

Bom dia Pessoal,

Estava desenvolvendo um projeto aqui utilizando o worksheet_change() e estava tudo ótimo, até em determinado momento ele deixou de funcionar, achei que eu tinha feito bobagem na programação e fui eliminado partes de códigos até que cheguei a conclusão que o evento worksheet_change() não está habilitado ou funcional, pois cheguei a abrir um nova pasta de trabalho, e copiar e colar exemplos simples da web de worksheet_change() e simplesmente não funciona, como um simples

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox "worksheet change funcionando"
End Sub

em uma planilha limpa, ao alterar uma célula não aparece a msg.

espero que alguém possa me dar uma luz.

Obrigado.

 

 

Editado Fevereiro 22, 2016 por jefferson.microni

[osvaldomp]

Olá, Jefferson.

Abra o editor de VBA e tecle Ctrl+G. Vai se abrir uma janela "Verificação imediata" na parte de baixo da janela maior. Nessa nova janela digite (ou cole) a expressão

?Application.EnableEvents  e sem mover o cursor (que deverá estar à direita da letra "s") tecle Enter. Informe o que aparecerá na linha abaixo.

[jefferson.microni]

Bom dia Osvaldo,

Aparece Verdadeiro

Dentro da minha sub esta assim: 

Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False

        ' Aqui vai todo o código do meu projeto...

        Application.EnableEvents = True
End Sub

Obrigado pela disponibilidade e atenção.

att.

[osvaldomp]

Olá, Jefferson.

E estes códigos funcionam?

em um módulo comum

Sub Teste()
 MsgBox "olá"
End Sub

 

no módulo da planilha

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 MsgBox "ws SelectionChange funcionou"
End Sub

 

 

[jefferson.microni]

Bom dia Osvaldo,

Sim, os dois códigos funcionaram, e, por incrível que pareça, depois que fiz os testes que você sugeriu o meu  Private Sub Worksheet_Change(ByVal Target As Range) voltou a funcionar...

No teste eu exclui o meu  Private Sub Worksheet_Change(ByVal Target As Range) e deixei apenas o seu  Private Sub Worksheet_SelectionChange(ByVal Target As Range)

testei e funcionou, depois adicionei novamente meu  Private Sub Worksheet_Change(ByVal Target As Range) e ele milagrosamente voltou a funcionar!

No módulo1 adicionei 

Sub Teste()
 MsgBox "olá"
End Sub

E chamei por um botão, funcionou sim.

Você saberia me indicar o que pode ter ocorrido para uma próxima vez eu saber resolver?

Obrigado novamente pela atenção e disponibilidade.

att.

[osvaldomp]

1 hora atrás, jefferson.microni disse:

Você saberia me indicar o que pode ter ocorrido para uma próxima vez eu saber resolver?

Fala, Jefferson.

Sei não! Fico com a sua hipótese: milagre...kkk

[jefferson.microni]

Obrigado amigo pela ajuda.

Abraço.