"validade" documento

[peska]

Boas

Estive a pesquisar para ver se conseguia arranjar solução para o que precisavas, mas não tive grande sucesso.
Embora tenha tido uma ideia que pode resultar, mas talvez seja difícil de implementar.

A minha ideia era fazer uma macro que era logo executada quando o .doc fosse aberto, ou seja, quando se abria o .doc a macro verificava a data que tu tinhas escolhido, e se já tivesse passado dessa data ou até mesmo se essa fosse a data do próprio dia o .doc era automaticamente fechado.

Consegui fazer o código da macro para fazer essa validação (ver abaixo), mas não me ocorreu nenhuma maneira de a fazer correr quando o .doc fosse aberto.

Código:

Sub Validar()
'
' Macro3 Macro
' Macro gravada 20-02-2009 por OEM
    If Command = "Ativar" Then
        
    Else
        DesativarEm "21/02/09"
    End If





End Sub
Public Sub DesativarEm(Data As Date)
    
    If Date >= Data Then
        ActiveWindow.Close
        Application.Quit
        End
    End If
    
End Sub

Se houver alguma coisa que não tenhas percebido, diz qualquer coisa que eu tento explicar da melhor.