Bom dia!!

Seria isso...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim dtexp As Date
'Escolha a data que deverá expirar
dtexp = ("29/04/2011") 'inibir aqui'
If Date >= #1/11/2010# Then 'ativar esta'
If Date >= dtexp Then 'inibir aqui'
ThisWorkbook.Saved = True
'Se quiser enviar mensagem apenas retire a aspa simples da linha de baixo ou personalize
'MsgBox "Este arquivo está expirado, se auto-excluirá!"
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
End If
End If
End Sub

Acho que seria melhor colocar o código no evento Workbook_Open:

Private Sub Workbook_Open()
    Application.EnableCancelKey = xlDisabled
    
    Dim dt As Date
    
    'Escolha a data em a Pasta de Trabalho deverá expirar (ano, mês, dia)
    dt = DateSerial(2012, 6, 29)
    If Date >= dt Then
        MsgBox "Esta Pasta de Trabalho expirou! Favor contatar Fulano."
        ThisWorkbook.Close SaveChanges:=False
    End If

    'Se data não expirou, código continua normalmente.
    
End Sub

Além disso, desabilitei o uso do Ctrl+Break para o usuário não interromper a rotina.
No entanto, essa solução tem duas fraquezas: o usuário pode abrir a Pasta de Trabalho sem ativar as macros, apagar esse código e usá-la normalmente ou alterar a data do sistema para uma anterior à data estipulada.

*Gosto de escrever datas no formato DateSerial porque essa função retorna a data correta independente do idioma da versão do usuário.

Bem, desculpem minha ignorância, mas onde eu coloco isso?

Fiz uma tabela muito boa e não quero repassá-la a clientes, mas quando tiver "ordens superiores" mandarei ela "bloqueada" até as vírgulas, mas queria que ela expirasse e deletasse...

Tem como fazer isso?

Como e onde?

Grato pela atenção...

O código você deve ser inserido no VBE. Alt+F11, Ctrl+R e dê dois clique em EstaPasta_de_trabalho.
Se mesmo assim não conseguir, veja um passo a passo em: http://www.ambienteoffice.com.br/office ... os_em_vba/
Outra solução:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=475

Boa noite Paulo

Baixe uma planilha com código VBA instalado.

http://www.sendspace.com/file/9pcowq

Se a resposta foi útil, clique na mãozinha que fica ao lado da ferramenta Citar.

Um abraço.

Boa tarde Tudo bem?
Sou um neófito em excel.
Observei uma artigo onde vc indica um endereço para baixar um exemplo de planilha
viewtopic.php?f=29&t=4752
Ao tentar não obtive exito, creio que não esteja mais disponivel.
Poderia disponibilizá-lo?
Minha dúvida:
existe uma forma de limitar o uso desta planilha e liberar com um código fornecido por nós?
Teria esse exemplo de como fazer?
Obrigado de qualquer forma.
meu email [email protected]
abraços

Bom dia!!
Leia
http://www.ehow.com.br/planilha-excel-e ... omo_23186/

DonwLoad
http://rapidshare.com/files/377785953/e ... a.xls.html

Att

Bom dia!!
Leia
http://www.ehow.com.br/planilha-excel-e ... omo_23186/

DonwLoad
http://rapidshare.com/files/377785953/e ... a.xls.html

Att

Bom dia.
O link para download esta dando errado.
Li sua dica. Obrigado.
Como seria para acrescentar uma rotina que eu digitasse um numero qualquer para liberar essa planilha, sem perdas de dados?
Mais uma vez obrigado

Boa noite!!

Eu me lembro ter postado algo assim, use s pesquisa do fórum!!

Veja também:
viewtopic.php?f=10&t=6288&p=33134&hilit=Planilha+que+expira+%5BResolvido%5D#p33134

Att