Miguel,

Veja se atende:

Em B1 coloque =HOJE()
Em B2 coloque a data desejada.

Depois coloque esse código em um módulo:

Sub data_teste()
If Plan1.Cells(1, 2) >= Plan1.Cells(2, 2) Then
'Esta linha compara as duas células que contem as datas 
MsgBox "Pasta de Trabalho Fora da Validade, Será Desativado Algumas Funções"
'Call Desativar_Comandos
Else
'caso contrario o usuario pode abrir e usar a planilha normalmente
MsgBox "Planilha Liberada para uso"
End If
End Sub

Em 'EstaPasta_de_tabalho, cole:

Private Sub Workbook_Open()
data_teste
End Sub

Faça o teste e se tiver dúvidas é só perguntar...

Att,

Resolvido, obrigado