Onde você quer guardar a senha?
Na própria planilha?
No registro do windows?
Em arquivo de controle separado?

Se for na própria planilha em aba oculta é bem simples fazer.

Aguardo suas respostas.

OLÁ, EU TENHO UMA PLANILHA E ALGUMAS PESSOAS VÃO PRECISAR USA-LA. SÓ NÃO QUERO QUE ELAS COPIE O ARQUIVO E PASSE PARA OUTROS. QUERO PASSAR A PLANILHA E APÓS UMA SEMANA ELA NÃO ABRA, SÓ SE EU COLOCAR UMA NOVA SENHA OU ENVIAR UM NOVO ARQUIVO. ESPERO TER EXPLICADO.
ATENCIOSAMENTE,
JAILSON

Bom dia!!

Segue um modelo....
http://www.sendspace.com/file/c6591z

Att

AINDA NÃO É. QUERO COLOCAR UMA SENHA COM DATA PARA EXPIRAR. MESMO SALVANDO COM OUTRO NOME O ARQUIVO NÃO IRÁ ABRIR APÓS A DATA COLOCADA. SÓ SE EU COLOCAR UMA NOVA DATA.

ATENCIOSAMENTE,
JAIL

Boa tarde!!

Tente uma adaptação...

Private Sub OKButt_Click()
    Dim iFoundPass As Integer
    On Error Resume Next
    With Sheets("Config").Range("UserNames")
         
        iFoundPass = .Find(What:=UserNameTextBox, After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Row
    End With
    On Error GoTo 0
     
    If iFoundPass = 0 Then
        SomethingWrong
        Exit Sub
    End If
     
    If Sheets("Config").Cells(iFoundPass, 2) <> PasswordTextBox Then
        SomethingWrong
        Exit Sub
    End If
     
    If Sheets("Config").Cells(iFoundPass, 3) < Date Then
        Expired
        Exit Sub
    End If
     
    Sheets("Config").Range("LoggedInAs") = UserNameTextBox
    Unload Me
     
     
End Sub

Private Sub PasswordTextBox_Change()
    OKButt.Enabled = (UserNameTextBox.TextLength > 2 And _
    PasswordTextBox.TextLength > 2)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
End Sub
Private Sub UserNameTextBox_Change()
    OKButt.Enabled = (UserNameTextBox.TextLength > 2 And _
    PasswordTextBox.TextLength > 2)
End Sub
Private Sub SomethingWrong()
    MsgBox "Usuário ou Senha incorreta.", vbCritical + vbInformation, "Acesso Restrito"
End Sub
Private Sub Expired()
    MsgBox "A senha expirou.", vbCritical + vbInformation, "Acesso Restrito"
End Sub

trindade, a questão não é a Senha mas sim a Data de Expiração, onde guarda-la ?
Plagiando a resposta do colega hronconi :
Onde você quer guardar a Data de Expiração?
Na própria planilha?
No registro do windows?
Em arquivo de controle separado?
Nas Propriedades do Arquivo ?

Vale lembrar que seja qual for o recurso escolhido, nenhum deles será 100%, nada impedirá de alguem copiar o arquivo, editar o VBA e modificar, ou até mesmo salvar com outro nome, e se for no excel 2007 onde temos a possibilidade de Salvar sem as Macros, alem que existem programas e varias rotinas que tiram as senhas tanto de Arquivos, como VBA e Abas.
Eu mesmo cheguei a criar um sistema assim, onde a Data era inserida no Registro do Windows, mas dependendo onde iremos utilizar o Arquivo o Registro do Windows são bloqueados não aceitando alteração via VBA.

Abaixo alguns exemplos, se pesquisar aqui no forum ou na net encontrara varias opções.

EXPIRAR SISTEMA NO VBA E EXCEL
http://www.tomasvasquez.com.br/forum/vi ... KfFn-QmfQQ

Planilha que expira [Resolvido]
viewtopic.php?f=29&t=4752

Limitar uso da planilha (expirar tempo de uso)
http://scriptbrasil.com.br/forum/index. ... pic=134935

Planilha com data de expiração - Esta usa a Instrução Kill, temos de tomar cuidado pois exclui o arquivo e não vai para Lixeira.
http://dicasdeexcelevba.blogspot.com.br ... racao.html

Expiração de Data para excel
http://excelevba.com.br/tag/validade-planilha/

Só alguns inks, mas existem varios sobre o aassunto.
Espero que ajude.

[]s

Trindade,

Aproveitando o exemplo cedido pelo nosso colega Alexandrevba, fiz algumas alterações na planilha e acredito que vai atender a sua necessidade.

Entre com o usuário Manager senha secret . Na aba de gestão existem duas células para se informar uma senha e uma data de validade. A planilha irá calcular uma chave principal que deve ser disponibilizada para o usuário.
Quando o usuário tiver sua data expirada, automaticamente será solicitado uma nova chave. É possível fazer a mudança de senha do usuário quando você distribuir a nova chave porque o sistema automaticamente ao se informar a chave, fará menção a nova senha que está cryptografada na chave.

Espero que lhe atenda pois deu um trabalhão enorme fazer este algorítimo de chave com senha e data.

Abraço,

Henrique Ronconi

PERFEITO HRONCONI
ISSO MESMO QUE EU QUERO
COMO EU DEVO COLOCAR EM MINHA PLANILHA

HRONCONI
QUANTO A NOVA SENHA COM A NOVA DATA DE VALIDADE, EXEMPLO FOSSE FORNECIDA PELO MANAGER. NO CASO EU. EU NAO CONSIGUI COLOCAR O QUE VOCE FEZ EM MINHA PLANILHA. O QUE EU DEVO FAZER.

ATENCIOSAMENTE,
JAILSON

Jailson,

Disponibilize a sua planilha compactada em algum site de compartilhamento de dados ou aqui no fórum se o tamanho dela for permitido. Aí eu lhe ajudo na adaptação para sua planilha.

Abraço,

Henrique.

Planilha modelo ótima, alguem teria um modelo que não estivesse corrompido?

Alguém teria essa preciosidade para compartilhar com os amigos?

Obrigado

Trindade,

Aproveitando o exemplo cedido pelo nosso colega Alexandrevba, fiz algumas alterações na planilha e acredito que vai atender a sua necessidade.

Entre com o usuário Manager senha secret . Na aba de gestão existem duas células para se informar uma senha e uma data de validade. A planilha irá calcular uma chave principal que deve ser disponibilizada para o usuário.
Quando o usuário tiver sua data expirada, automaticamente será solicitado uma nova chave. É possível fazer a mudança de senha do usuário quando você distribuir a nova chave porque o sistema automaticamente ao se informar a chave, fará menção a nova senha que está cryptografada na chave.

Espero que lhe atenda pois deu um trabalhão enorme fazer este algorítimo de chave com senha e data.

Abraço,

Henrique Ronconi

Tem como postar o arquivo de novo o Zip ta corrompido