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!
_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.
Eu não concordo com isso... MAS, vc que sabe o que é melhor para você, como profissional!
Ok, dito isso, vamos a minha sugestão.... você pode destruir a pasta, quando rodar fora da data. dar um .delete em todas as planilhas, bagunçar todo conteúdo, fazer salvar e ficar com mais de 15MB... ou seja, o código destrói a poha toda, e salva ...
Eu já fiz... e tem que ser feito com muito cuidado pq se vc destruir, vc perde tudo,
MWHUAHAUHAUHAUHUAHA (risada diabólica)
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel