Você pode colocar que:
________________________________________________________________________________________
data1=data_de_hoje
desprotege a planilha seu_nome
planilha_visivel a planilha seu_nome
se planilha("seu_nome").celula("B1")=1 faça
verifica se txt com um nome especifico em C:ProgramData existe
se não existir faça
esconde planilha seu_nome
protege planilha seu_nome
salva o livro
fim se
se existir o arquivo faça
esconde planilha seu_nome
protege planilha seu_nome
abra o livro ou seu projeto
fim se
fim se
se planilha("seu_nome").celula("A1")=data_de_hoje e planilha("seu_nome").celula("B1")="" faça
crie um txt com um nome especifico em C:ProgramData
planilha("seu_nome").celula("B1")=1
fim se
_________________________________________________________________________________________________
Esses acima não são os códigos são só comentários...
primeiro ele desprotege a planilha e torna visível verifica se na B1é igual a nada se for ele vê se a data de hoje é igual a data que vc colocou na célula A1 se for ele cria o arquivo.
agora se B1 é igual a 1 ele verifica se tem o arquivo no caminho C:ProgramData se não for localizado esconde planilha seu_nome e protege planilha seu_nome para que os dados não sejam alterados.tudo isso no vba do livro no:
Private Sub Workbook_Open()
End Sub
Espero ter ajudado!
Postado : 23/09/2015 4:22 pm