Data de Validade (Macro)

Processos de importação e exportação de dados, interação entre o Excel e demais softwares, interface com Banco de dados, SQL.

Data de Validade (Macro)

Mensagempor carlosrgs » Sex Mai 19, 2017 9:19 am

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.

Código: Selecionar todos
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!
_______________________________________________________________________________________________
Abraço!
Carlos Rafael
Avatar do usuário
carlosrgs
Membro
Membro
 
Mensagens: 364
Registrado em: Qua Abr 15, 2015 1:30 pm
Has thanked: 73 times
Have thanks: 78 times

{ SO_SELECT }

Share on Facebook Facebook

Re: Data de Validade (Macro)

Mensagempor fernando.fernandes » Sex Mai 19, 2017 9:43 am

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)
Mil maneiras...
PDM=Potencial de Dar Merda
Fernando Fernandes - Moderação - MOS Excel Expert
Resposta útil? Clique na mãozinha.
Canal Expresso Excel:
https://www.youtube.com/c/ExpressoExcel
https://www.youtube.com/watch?v=lXmv0d0SqoM&

For this post the author fernando.fernandes thanked:
carlosrgs (Qui Jun 29, 2017 4:10 pm)
Avatar do usuário
fernando.fernandes
Ninja do Excel
Ninja do Excel
 
Mensagens: 1979
Registrado em: Sex Jul 03, 2009 8:21 pm
Localização: São Paulo, SP, BR
Has thanked: 177 times
Have thanks: 665 times


Voltar para Integração Excel & Acess

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante