Boa noite Aylmer

Veja se o conteúdo deste site pode te ajudar:

http://exceletudo.webnode.com.br/news/e ... nada-data/

Dê retorno.

Um abraço.

Boa noite!!

Tente...

Private Sub Workbook_Open()
    If Date > #4/5/2011# Then
        MsgBox "Trial period expired"
        ThisWorkbook.Close False
    End If
 End Sub
 

As duas dicas foram show!
Posso usar a primeira na questão de um demo e a segunda como uma renovação de licença, mesmo, pois assim o cliente renovando, não perderia seus dados anteriores.
O problema é que do Office 2007 em diante, o usuário escolhe se habilita a macro ou não. Ele não habilitando, não adiantará.
Para sanar esse problema, haveria algum script que obrigue o user a habilitar as macros?
Talvez um que ocultasse todas as planilhas da pasta e só mostrasse elas após a habilitação das macros.
Porque ai posso deixar a primeira planilha como se fosse uma tela de apresentação e informação, instruindo à habilitação das macros e quando habilitado, mostrasse as outras planilhas.

Boa tarde!!
Por questões de segurança isso não possível (obrigar o usuário a habilitar as macros)!

Existem outras formas do tipo, ocultar as planilhas etc, de modo que o mesmo não consiga usar, a não ser que habilite a macro.

Att

Exato alexandrevba. Foi o que citei ao final do post.
Alguma forma de ocultar as demais planilhas para que somente após habilitar as macros as mesmas tornem a aparecer.

Boa noite!!

Veja esse exemplo.
Fonte: http://www.vbaexpress.com/kb/getarticle.php?kb_id=380

Option Explicit
Option Compare Text
 'Password to unhide sheets
Const pWord = "MyPassword"
 
Sub HideSheets()
     'Set worksheet to Very Hidden so that it can only be unhidden by a macro
    Worksheets("Confidential").Visible = xlSheetVeryHidden
End Sub
Sub ShowSheets()
     'Prompt the user for a password and unhide the worksheet if correct
    Select Case InputBox("Please enter the password to unhide the sheet", _
        "Enter Password")
         
    Case Is = pWord
        With Worksheets("Confidential")
            .Visible = xlSheetVisible
            .Activate
            .Range("A1").Select
        End With
    Case Else
        MsgBox "Sorry, that password is incorrect!", _
        vbCritical + vbOKOnly, "You are not authorized!"
    End Select
End Sub
 
Option Explicit
 
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
     
     'Hide confidential sheet at startup
    Call HideSheets
     
     'Activate cell A1 on the Dashboard sheet at startup
    With Worksheets("Dashboard")
        .Activate
        .Range("A1").Select
    End With
    Application.ScreenUpdating = True
End Sub

Boa noite Aylmer

Dá para fazer assim:

Ocultar todas as planilhas que você utiliza, deixando uma planilha em branco com a mensagem: “FAVOR HABILITAR MACROS PARA TER ACESSO AO CONTEÙDO DESTE ARQUIVO”.
Proteja o arquivo com senha a pasta para que os usuários não consigam reexibir planilhas ocultas.

Coloque uma macro na inicialização que desproteja e exiba a planilha desejada.
Se a macro não for ativada, ele terá acesso somente a planilha com a mensagem “FAVOR HABILITAR MACROS PARA TER ACESSO AO CONTEÙDO DESTE ARQUIVO”.

Um abraço.

Boa noite! Aylmer

Segue minha contribuição.

Sub workbook_open()
If Date <= #12/12/2012# Then Exit Sub
MsgBox "Planilha fora da validade"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub

@fernandofernandes Boa tarde Fernando! Amigo, pode me dizer como fazer para que a pessoa seja forçada a "Habilitar Conteúdo"?