Bom dia.

Desenvolvo varias planilhas no trabalho para outras pessoas.

E sempre comento que quando eu sair da empresa, vou cobrar por acessória rs.

Em meio a crise que estamos passando, pensei em fazer uma especie de garantia do meu trabalho do que se trata a Excel.

Colocar uma data limite para que após determinado dia, não rode mais nada nos arquivos.

Tenho o código que até atende.

Sub Teste_Hora()
Dim i As String
i = Format(Now, "dd/mm/aa")
If i >= Format(Sheets("Plan1").Range("A1").Value, "DD/MM/AA") Then
    MsgBox "Não Roda"
Else
    MsgBox "Roda"
End If
End Sub

Porém se o usuário alterar a data do computador (Windows) ele conseguirá utilizar o arquivo normalmente.

Alguém tem alguma sugestão para evitar que burlem essa rotina ?

Obrigado!