Boa noite galera!!!
Procurando no banco de dados não encontrei o que procurava... algo próximo, enfim...
Gostaria que o arquivo se auto-bloqueasse quando chegasse em uma determina data que ficaria em uma célula, e só voltasse a ser utilizada mediante login com senha que somente o desenvolvedor da mesma teria acesso e que esta seria ativa/solicitada quando expirado.
Exemplificando:
Estou usando um arquivo cuja validade de acesso é de 30 dias.
Ela não exige login e senha dentro do prazo de validade.
Quando a data chegar ao fim, o usuário tem o arquivo, mas não consegue entrar, pois abre um UserForm (login e senha), que somente o desenvolvedor tem acesso.
E através de um outro form, o desenvolvedor atualizaria a data para mais adiante, que ficaria em uma célula, em uma planilha que o usuário não tenha acesso, seja bloqueada por senha, ou oculta que o mesmo não tenha acesso.
Não sei se é possível, mas muito interessante, para que quer desenvolver projetos e ter controle sobre eles.
Abs
Boa noite!!
Antes que as feras do VBA, lhe responda de forma satisfatória, eu sugiro, usar nossa base de dados (onde demonstra com exemplos de como criar login) e mescle com (como criar prazo de expiração), após isso você adptaria de forma a se encaixar com sua necessidade.
Use a Pesquisa e a Biblioteca.
Caso seja necéssario poste seu arquivo compactado!!
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Olá Ale,
Login eu sei, a princípio é uma idéia, por tanto não tenho um esboço, mas que pode ser usada para vários desenvolvedores de projetos, eu estou trabalhando na medida do possível para desenvolver um pequeno projeto para a empresa que trabalho, mas não queria deixar simplesmente em vão, quero apresentar o que desenvolvi, quando tiver certeza que meu trabalho não foi em vão, e possa ter controle sobre o mesmo.
Att,
Olá...
Use o código abaixo em EstaPasta_de_Trabalho
Private Sub Workbook_Open()
If Date <= #12/31/2012# Then Exit Sub ' Formato: mm/dd/aaaa
MsgBox "Seu arquivo venceu, portanto, será excluído", vbCritical, "Desculpe"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub
Na segunda linha do código vc define a data que deseja que seu projeto seja válido, no formato mês, dia e ano.
Se a resposta foi útil, favor finalizar o tópico e agradecer pela resposta.
Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'
Olá, este código eu tenho, gostaria de saber se existe a possibilidade da data de expiração esteja em uma célula, e que o arquivo não se auto-excluísse, apenas bloqueasse até trocar a data na célula.
Att,
Boa noite!!
Veja se te ajuda
Private Sub Workbook_Open()
If Date <= Worksheets("Plan1").Range("A1").Value Then Exit Sub
MsgBox "Seu arquivo já venceu o prazo, assim, será excluído", vbCritical, "Sinto Muito"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
'Kill .FullName
.Close False
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Alé, ta quase no ponto... como faço para alterar a data e continuar a utilizar o arquivo? pois quando clico em ok, ele se fecha.
Boa noite!!
Nçao sei se eu entendi....
Tente...
Private Sub Workbook_Open()
If Date <= Worksheets("Plan1").Range("A1").Value Then Exit Sub
MsgBox "Seu arquivo já venceu o prazo, assim, será excluído", vbCritical, "Sinto Muito"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
'Kill .FullName
'.Close False <--foi tirado a ação dessa linha
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel