Boa tarde 80Wil

Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

Na sub Alterar, o comando Exit Sub está encerrando a sub sem chavear a propriedade Enable.Events de volta para True.

MsgBox "Dados alterados com sucesso", vbInformation, "Alterar"
'ActiveWorkbook.Save
Exit Sub

Experimente:
MsgBox "Dados alterados com sucesso", vbInformation, "Alterar"
Application.EnableEvents = True
'ActiveWorkbook.Save
Exit Sub

Muito Obrigado Osvaldo! Resolveu a questão! UFA!