Boa noite!!

Antes que as feras do VBA, lhe responda de forma satisfatória, eu sugiro, usar nossa base de dados (onde demonstra com exemplos de como criar login) e mescle com (como criar prazo de expiração), após isso você adptaria de forma a se encaixar com sua necessidade.

Use a Pesquisa e a Biblioteca.

Caso seja necéssario poste seu arquivo compactado!!

Att

Olá Ale,

Login eu sei, a princípio é uma idéia, por tanto não tenho um esboço, mas que pode ser usada para vários desenvolvedores de projetos, eu estou trabalhando na medida do possível para desenvolver um pequeno projeto para a empresa que trabalho, mas não queria deixar simplesmente em vão, quero apresentar o que desenvolvi, quando tiver certeza que meu trabalho não foi em vão, e possa ter controle sobre o mesmo.

Att,

Olá...

Use o código abaixo em EstaPasta_de_Trabalho

Private Sub Workbook_Open()
If Date <= #12/31/2012# Then Exit Sub ' Formato: mm/dd/aaaa
MsgBox "Seu arquivo venceu, portanto, será excluído", vbCritical, "Desculpe"
With ThisWorkbook
    .Saved = True
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close False
End With
End Sub

Na segunda linha do código vc define a data que deseja que seu projeto seja válido, no formato mês, dia e ano.
Se a resposta foi útil, favor finalizar o tópico e agradecer pela resposta.

Olá, este código eu tenho, gostaria de saber se existe a possibilidade da data de expiração esteja em uma célula, e que o arquivo não se auto-excluísse, apenas bloqueasse até trocar a data na célula.

Att,

Boa noite!!

Veja se te ajuda

Private Sub Workbook_Open()
If Date <= Worksheets("Plan1").Range("A1").Value Then Exit Sub
MsgBox "Seu arquivo já venceu o prazo, assim, será excluído", vbCritical, "Sinto Muito"
With ThisWorkbook
    .Saved = True
    .ChangeFileAccess xlReadOnly
    'Kill .FullName
    .Close False
End With
End Sub

Alé, ta quase no ponto... como faço para alterar a data e continuar a utilizar o arquivo? pois quando clico em ok, ele se fecha.

Boa noite!!

Nçao sei se eu entendi....
Tente...

Private Sub Workbook_Open()
If Date <= Worksheets("Plan1").Range("A1").Value Then Exit Sub
MsgBox "Seu arquivo já venceu o prazo, assim, será excluído", vbCritical, "Sinto Muito"
With ThisWorkbook
    .Saved = True
    .ChangeFileAccess xlReadOnly
    'Kill .FullName
    '.Close False <--foi tirado a ação dessa linha
End With
End Sub