Notifications
Clear all

Planilha que expira

11 Posts
4 Usuários
0 Reactions
6,234 Visualizações
(@paulodf121)
Posts: 43
Eminent Member
Topic starter
 

Boa tarde pessoal,

Gostaria de saber se alguém sabe como fazer uma planilha que expire, e que ao passar do período estipulado, ela apresente uma mensagem e fique bloqueada...

Grato pela atenção.

Att,

Paulo Alves
E-Mail¹: [email protected]

 
Postado : 29/06/2012 5:36 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Seria isso...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim dtexp As Date
'Escolha a data que deverá expirar
dtexp = ("29/04/2011") 'inibir aqui'
If Date >= #1/11/2010# Then 'ativar esta'
If Date >= dtexp Then 'inibir aqui'
ThisWorkbook.Saved = True
'Se quiser enviar mensagem apenas retire a aspa simples da linha de baixo ou personalize
'MsgBox "Este arquivo está expirado, se auto-excluirá!"
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
End If
End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/06/2012 5:48 am
benzadeus
(@benzadeus)
Posts: 78
Trusted Member
 

Acho que seria melhor colocar o código no evento Workbook_Open:

Private Sub Workbook_Open()
    Application.EnableCancelKey = xlDisabled
    
    Dim dt As Date
    
    'Escolha a data em a Pasta de Trabalho deverá expirar (ano, mês, dia)
    dt = DateSerial(2012, 6, 29)
    If Date >= dt Then
        MsgBox "Esta Pasta de Trabalho expirou! Favor contatar Fulano."
        ThisWorkbook.Close SaveChanges:=False
    End If

    'Se data não expirou, código continua normalmente.
    
End Sub

Além disso, desabilitei o uso do Ctrl+Break para o usuário não interromper a rotina.
No entanto, essa solução tem duas fraquezas: o usuário pode abrir a Pasta de Trabalho sem ativar as macros, apagar esse código e usá-la normalmente ou alterar a data do sistema para uma anterior à data estipulada.

*Gosto de escrever datas no formato DateSerial porque essa função retorna a data correta independente do idioma da versão do usuário.

Felipe Costa Gualberto
Microsoft Excel MVP
http://www.ambienteoffice.com.br

 
Postado : 29/06/2012 6:40 am
(@paulodf121)
Posts: 43
Eminent Member
Topic starter
 

Bem, desculpem minha ignorância, mas onde eu coloco isso?

Fiz uma tabela muito boa e não quero repassá-la a clientes, mas quando tiver "ordens superiores" mandarei ela "bloqueada" até as vírgulas, mas queria que ela expirasse e deletasse...

Tem como fazer isso?

Como e onde?

Grato pela atenção...

Att,

Paulo Alves
E-Mail¹: [email protected]

 
Postado : 01/07/2012 11:01 am
benzadeus
(@benzadeus)
Posts: 78
Trusted Member
 

O código você deve ser inserido no VBE. Alt+F11, Ctrl+R e dê dois clique em EstaPasta_de_trabalho.
Se mesmo assim não conseguir, veja um passo a passo em: http://www.ambienteoffice.com.br/office ... os_em_vba/
Outra solução:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=475

Felipe Costa Gualberto
Microsoft Excel MVP
http://www.ambienteoffice.com.br

 
Postado : 01/07/2012 11:17 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Paulo

Baixe uma planilha com código VBA instalado.

http://www.sendspace.com/file/9pcowq

Se a resposta foi útil, clique na mãozinha que fica ao lado da ferramenta Citar.

Um abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/07/2012 3:50 pm
(@mylton)
Posts: 59
Trusted Member
 

Boa tarde Tudo bem?
Sou um neófito em excel.
Observei uma artigo onde vc indica um endereço para baixar um exemplo de planilha
viewtopic.php?f=29&t=4752
Ao tentar não obtive exito, creio que não esteja mais disponivel.
Poderia disponibilizá-lo?
Minha dúvida:
existe uma forma de limitar o uso desta planilha e liberar com um código fornecido por nós?
Teria esse exemplo de como fazer?
Obrigado de qualquer forma.
meu email [email protected]
abraços

 
Postado : 25/01/2013 8:05 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!
Leia
http://www.ehow.com.br/planilha-excel-e ... omo_23186/

DonwLoad
http://rapidshare.com/files/377785953/e ... a.xls.html

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/01/2013 8:31 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!
Leia
http://www.ehow.com.br/planilha-excel-e ... omo_23186/

DonwLoad
http://rapidshare.com/files/377785953/e ... a.xls.html

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/01/2013 8:31 am
(@mylton)
Posts: 59
Trusted Member
 

Bom dia.
O link para download esta dando errado.
Li sua dica. Obrigado.
Como seria para acrescentar uma rotina que eu digitasse um numero qualquer para liberar essa planilha, sem perdas de dados?
Mais uma vez obrigado

 
Postado : 29/01/2013 5:04 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu me lembro ter postado algo assim, use s pesquisa do fórum!!

Veja também:
viewtopic.php?f=10&t=6288&p=33134&hilit=Planilha+que+expira+%5BResolvido%5D#p33134

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/01/2013 6:41 am