Executar macro sempre que fechar qualquer arquivo no Excel

Question

Caros,

Preciso que sempre antes que seja fechado um arquivo no excel seja executada uma macro para a devida classificação do documento. Fiz isso no Normal.dot do Word com o AutoClose e funcionou direitinho. Quando usei o arquivo Pasta.xlt com Private Sub Workbook_BeforeClose só funcionou quando abro o excel sem acessar um documento qualquer antes, ou seja, quando clico em um documento existente o excel sai e não executa a macro. Tentei colocar no PESSOAL.xls mas também não resolveu meu problema. Alguém poderia me dar uma dica por gentileza? Desde já fico grata.

Answer 1

Crie um módulo de classe na sua pasta pessoal.

Dim WithEvents app As Excel.Application Private Sub Class_Initialize() Set app = Application End Sub Public Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, _ Cancel As Boolean) MsgBox "salvando" End Sub

Na mesma pasta pessoal, garanta a execução da classe.

Dim appEvents As Classe1 Private Sub Workbook_Open() Set appEvents = New Classe1 End Sub Vai valer para todos os arquivos.

Answer 2

Ops ... Obrigada pela ajuda ... Agradeço muito ... Estou com urgência em resolver isso ...

Answer 3

Ops ... Obrigada pela ajuda ... Agradeço muito ... Estou com urgência em resolver isso ...

Answer 4

Como faço para ativá-la de maneira que ela funcione para qualquer aquivo do excel?

Answer 5

Vc está utilizando um evento de arquivo e não do Excel. Experimente...

App_WorkbookBeforeSave