Cola isso em Esta pasta de Trabalho

Private Sub Workbook_Open()
If Date >= CDate("31/10/2120") Then ' Altere as datas conforme sua necessidade.
ActiveWorkbook.Password = "123" ' Insira uma senha a sua escolha...
ActiveWorkbook.Save
End If
If Date > CDate("30/10/2200") Then
MsgBox ("Atenção: Sua Mensagem Aqui.."), vbCritical
ActiveWorkbook.Close
End If
End Sub

Bom dia M;Prudencio

Funcionou, mas eu gostaria de executar sem a senha, tentei mudar o código mas n consegui... tem como usar data e hora?

desde já agradeço

Att

Bom dia!!

Teste em um arquivo que ainda não foi bloqueado manualmente ou via VBA.

Private Sub Workbook_Open()
    If Date >= CDate("31/10/2120") Then ' Altere as datas conforme sua necessidade.
    ActiveWorkbook.Save
    End If
    If Date > CDate("30/10/2200") Then
    MsgBox ("Atenção: Sua Mensagem Aqui.."), vbCritical
    ActiveWorkbook.Close
    End If
End Sub

Obs: Se testar em arquivo que já foi protegido, terá que ter certeza que o mesmo está desprotegido.

Att

Se vc quer sem senha faz assim.

Private Sub Workbook_Open()

If Date > CDate("30/10/2200") Then
MsgBox ("Atenção: Sua Mensagem Aqui.."), vbCritical
ActiveWorkbook.Close
End If
End Sub

Muito Obrigado a todos