Planilha com data de expiração

Já pensou algumas vezes passar sua planilha para um amigo, colega ou terceiros e não saber como estes irão usa-las, ou ainda pior se apropriarem de suas ideias? para isso coloco abaixo um código onde sua planilha irá expirar no momento que o usuário fechar a mesma.

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

**Obs. não irá nem para lixeira