[Resolvido]Senha para impedir edição em campo

Gostaria de mais uma grande ajuda:

Gostaria de colocar senha em alguns campos do meu formulário, de modo que quando alguém tentasse editar esses campos fosse pedido uma senha de acesso. Já encontrei em outros tópicos uma coisa parecida, mas a senha era pedida sempre que a caixa de texto estava selecionada, o que não é eficiente quando utilizamos a tecla tab para percorrer o formulário, porque a senha era pedida o tempo todo e não apenas quando era feita a tentativa de edição.

Desde já agradeço a atenção,

Luciana

Oi Lu, tudo bem? Você quer controlar a edição de registros já existentes na tabela, para os quais tem a chave primária dos mesmos no formulário, correto? Pode usar um DLookup no evento "Após atualizar" dos campos ou "Ao clicar" de um botão:

If Me.NomeCampo <> DLookup("NomeCampoTabela", "NomeTabela", "Código=" & Me!Código) Then
    If InputBox("Insira a senha", "Senha") <> "SuaSenhaAqui" Then
    MsgBox "Senha inválida", vbOkOnly + vbCritical, "Erro"
    Me.NomeCampo.Undo
    Else
    Exit Sub
    End If
Else
Exit Sub
End If

Nesse campo, será feita uma comparação entre o valor do campo e o que está gravado na tabela. Se for diferente, será exibida uma Inputbox para digitar a senha. Esse método não coloca máscara de senha na InputBox (***). Para colocar asteriscos no lugar da senha digitada, precisará de um módulo. Existe um tópico no forum com esse módulo.

Tentei colocar no evento "Ao Atualizar", mas sempre que o foco passa pelo campo é solicitado a senha. Gostaria que essa senha fosse pedida quando tentassem editar o campo.

Coleoquei em ao clicar e foi para o depurador.

coloque apenas no evento VBA ao alterar do seu campo

Private Sub seucampo_Change()
If InputBox("Insira a senha", "Senha") <> "luciana" Then
MsgBox "Senha inválida", vbOKOnly + vbCritical, "Erro"
Me.seucampo.Undo
Else
Exit Sub
End If
End Sub

Ricardo, é isso mais ou menos isso que estou querendo. O único problema é que antes de colocar a senha eu consigo apagar a última letra do campo. Não tem como impedir completamente a edição no campo?

Luciana

Não sei se entendi bem, mas é apenas uma ideia

Se você quer impedir a completa edição do campo o melhor seria ter o campo trancado e um botão para pedir a senha, assim:

No evento actual do formulário
Me.MeuCampo.Locked=True 'Desta forma o campo não permite alteração

Depois no evento click de um botão de comando

If InputBox("Insira a senha", "Senha") <> "luciana" Then
MsgBox "Senha inválida", vbOKOnly + vbCritical, "Erro"
Me.MeuCampo.Locked=False
Me.Meucampo.Undo
Else
Exit Sub
End If

Viera, vc está conseguindo chegar onde eu quero, sendo que no evento atual do formulária eu tenho assim:

Private Sub Form_Current()

If IsNull([Processo]) Then 'Quando abrir o formulário ou mudar de registro se o campo

Me.Processo.Enabled = True 'estiver vazio habilita

Else

Me.Processo.Enabled = False 'estiver com dados desabilita

End If

End Sub


Isso para impedir a completa edição de um campo chamdo processo que é a minha chave primária. Esse campo não pode ser editado de maneira nenhuma depois que o formulário for salvo, o que tem funcionado perfeitamente.

Vou tentar explicar melhor:

Esse banco de dados possui uma senha para o administrador (que sou eu) onde tenho a liberdade de fazer o que quero. Tenho mais três funcionários que editam esse bd, onde quero colocar senhas proprias onde passem a ter apenas permissão para adição de novos registros impedindo que apaguem ou alterem algum dado importante. Dessa maneira, sempre que precisarem fazer alteração ou exclusão, eu tenho que fechar o bd e abrir com minha senha, onde faço a exclusão ou a alteração, fecho e abrem novamente com a senha deles. Isso dará muito trabalho porque frequentemente alguns campos precisam ser modificados. Gostaria de um modo mais fácil de fazer isso, por isso pensei em colocar a senha para alteração dos campos que precisam ser editados eventualmente e bloquear completamente a edição de dados que não precisam de edição (como é o caso do campo "Processo" que já está bloqueado através do código acima). Da maneira que estou tentando fazer eu apenas digito a senha com o bd aberto e permito assim a alteração. Conseguiu entender o meu problema?

Att

Luciana

Não seria melhor ter um form apenas para consulta e outro para alterações de campos de registros já cadastrados? Você poderia colocar um campo invisível para digitar a senha quando precisasse abrir o formulário de edição, o qual já abriria filtrado no registro do form de consulta. Você poderia ter um botão para clicar e tornar esse campo visível ou então usar um atalho de teclado, como por exemplo F2.

Criquio, bom te ver!!!!!

Sabe que sou meio burrinha. Rsrsrsrsrs.

Vamos ver se consegui entender:

Tenho um formulário onde atualmente faço todos os procedimento (adição, edição, exclusão). Quando vc fala em ter dois formulários quer dizer em duplicar esse formulário? Um apenas para consulta e outro para alteração?

Vou abusar de vc e dar outras informações:

No meu bd faço todo o controle de movimentação de processo. Nele tenho o campo "Processo" que após salvo, não pode ser editado, mesmo porque é minha chave primária (vc que me ensinou a fazer isso - rsrsrsrsrs). Tenho outros campos como "Data de Entrada" que nunca irão precisar ser modificados após salvo. Tenho outros campos como "Modalidade de Licitação" e "Objeto" que são editados eventualmente (esse tipo é que quero proteger) e outros como "Localização" e "Destino" que são editados frequentemente pois são a base de dados da movimentação do processo. Neste mesmo formulário tenho um subformulário em que ficam informações como data de entrada e saída do processo em cada departamento. Esse subformulário também é editado regularmente, pois também controlam a movimentação do processo. Por isso acho que criar um formulário apenas de consulta não seria interessante porque não poderiam fazer qualquer tipo de procedimento nele.

Uma ideia que acho que pode ser legal: você cria uma caixa de texto para a senha e deixa ela invisível. Esses campos que você quer que peça senha, deixe eles bloqueados através das propriedades. No evento "Ao apertar tecla" desses campos, coloque um atalho, como por exemplo F2, para tornar o campo da senha visível e mover o foco para ele. O código do atalho de teclado pode ser, para a tecla F2:

If KeyCode = vbKeyF2 Then
Me.CampoSenha.Visible = True
Me.CampoSenha.SetFocus
Else
Exit Sub
End If

No campo da senha, você coloca no evento "Após atualizar" ou em um botão invisível que se tornou visível no mesmo método:

If Me.CampoSenha = "SuaSenha" Then
Me.Campo1.Locked = False
Me.Campo2.Locked = False
Else
Me.Campo1.Locked = True
Me.Campo2.Locked = True
MsgBox "Senha incorreta"
End If

Se for abilitar apenas um campo, talvez fosse melhor utilizar uma variável para guardar o nome do campo a ser abilitado. Se quiser me enviar uma cópia do bd só com o formulário para eu tentar aqui, eu faço e te envio de novo depois.

Deixo ele bloqueado com o mesmo código que coloquei no campo "Processo"?

Private Sub Form_Current()
If IsNull([Processo]) Then 'Quando abrir o formulário ou mudar de registro se o campo
Me.Processo.Enabled = True 'estiver vazio habilita
Else
Me.Processo.Enabled = False 'estiver com dados desabilita
End If
End Sub

Sim, pode deixar esse tambem.

Etapa 1 concluída: deixei bloqueado os campos através daquele código.

Etapa 2: Crio a caixa de texto dentro do formulário para a senha e deixo ela invisível. Como faço para deixar ela invisível?

Pode definir Visivel como Não nas propriedades dela no modo estrutura do formulário, ou no evento "Ao carregar" do form:

Me.NomeCampo.Visible = False

Vc deve estar morrendo de rir de mim. KKKKKKKKKKKKKK

Etapa 2 concluída: Deixei invisível a caixa de texto para senha através da propriedade visível.

Etapa 3: Colocar a tecla de atalho F2. Como faço?

Você pode escolher entre usar F2 ou ao dar um duplo clique no botão. Se escolher F2, coloque o código abaixo no evento "Ao pressionar tecla" dos campos que devem ser protegidos. Se escolher "Ao clicar duas vezes", coloque o código abaixo sem as linhas em vermelho:

If KeyCode = vbKeyF2 Then
Me.CampoSenha.Visible = True
Me.CampoSenha.SetFocus
Else
Exit Sub
End If

No evento "Após atualizar" dos campos, você precisa colocar para eles ficarem bloqueados novamente.
Agora vou sair porque tenho que jogar umas gotas de água no pêlo, fazer um lanchiinho leve e ir sonhar com as anjas, mas amanhã estarei de volta logo cedo, ok?

Descanse bastante e sonhe com as anjinhas. Rsrsrsrsrs.

Amanhã te pertubo mais pq devo ter feito alguma coisa errada que não deu certo. Não está aparecendo o campo "Senha" quando aperto F2.

Bjs,

Até amanhã

Luciana

Veja o simples do simples

1- Tente alterar o campo Nome

2- Clique no botão ao lado do campo e insira a senha Luciana e altere o campo

3- Digite uma outra senha qualquer e tente alterar o campo

Simples

Vieira, gostei do seu exemplo, só não consegui descobrir como fez para bloquear o campo Nome, já que pela propriedade ele não está bloqueado.

Att

Luciana

Abra o módulo vba associado ao formulário e irá verificar que possui 2 rotinas de código:
Este para o botão de comando, se a senha for válida desbloqueio o campo com a instrução em Bold

Private Sub Comando3_Click()
If InputBox("Insira a senha", "Senha") = "luciana" Then
Me.Nome.Locked = False 'aqui desbloqueio o campo
MsgBox "Senha válida", vbInformation, "Bem Vinda"
Else
MsgBox "Senha inválida", vbCrtical, "Erro"
Me.Nome.Locked = True 'aqui bloqueio o campo
End If
End Sub

Aqui por defeito o campo está bloqueado

Private Sub Form_Current()
Me.Nome.Locked = True
End Sub

Vieira, sou completamente lenta para entender essas coisas e desda já te peço um pouco de paciência comogo. Rsrsrsrsrs.

Já criei o botão de comando e coloquei a instrução no evento ao clicar:

Private Sub Comando3_Click()
If InputBox("Insira a senha", "Senha") = "123456" Then
Me.Objeto.Locked = False
MsgBox "Senha válida", vbInformation, "Bem Vinda"
Else
MsgBox "Senha inválida", vbCrtical, "Erro"
Me.Objeto.Locked = True
End If
End Sub

Já testei e realmente me pede a senha, como era esperado, sendo que a senha não é aceita, tanto no meu bd quanto no seu exemplo. E também não sei como fazer para bloquear o campo objeto, já que na propriedade o seu campo Nome está como não bloqueado. Será que eu teria que bloquear com o codigo que Criqui me deu anteriormente?

Falta colocar este no evento actual do form

Private Sub Form_Current()
Me.Objecto.Locked = True
End Sub

Coloquei esse código que Criquio tinha me ensinado:

If IsNull([Objeto]) Then 'Quando abrir o formulário ou mudar de registro se o campo
Me.[Objeto].Enabled = True 'estiver vazio habilita
Else
Me.[Objeto].Enabled = False 'estiver com dados desabilita

End If

End Sub


Dessa maneira o campo fica desbloqueado quando está vazio e bloqueado quando for adicionado informações.
Sendo que quando digito a senha, contina dando como inválida e nada acontece.

Tudo bem, mas não confunda as coisas. Faça a experiência com o que eu lhe dei para fazer, caso contrário vai começar a entrar em confusão.

Private Sub Comando3_Click()
If InputBox("Insira a senha", "Senha") = "123456" Then
Me.Objeto.Locked = False
MsgBox "Senha válida", vbInformation, "Bem Vinda"
Else
MsgBox "Senha inválida", vbCrtical, "Erro"
Me.Objeto.Locked = True
End If
End Sub

Private Sub Form_Current()
Me.Objecto.Locked = True
End Sub

Vieira, muitooooooooooooooooooo obrigada pela ajuda.

Deu certo!!!!!

Mas como nada é perfeito, quando adiciono um registro novo esse campo continua bloqueado. Tem como este campo ficar desbloqueado para adição e bloqueado para edição? No caso de edição, apertando o batão ele desbloqueia e faço a modificação (como me ensinou). Depois da edição ele bloqueia novamente.

Acrescente mais este


Private Sub Objecto_GotFocus()
If IsNull(Me.Objecto) Then
Me.Objecto.Locked = False
End If
End Sub

Pelo pouco que sei é para colocar esse código no evento ao perder o foco do campo Objeto - Private Sub Objecto_GotFocus()

Isso?

Fiz e não deu certo. Continua como antes.

Minto, perder não, receber o foco

Private Sub Objecto_GotFocus()

Não ao perder foco, mas ao ganhar foco. GotFocus (Obter foco) e LostFocus (Perder foco)

Se colocar no evento que lhe sugeri, trabalha beleza

Já estou começando a ficar com vergonha Vieira. Deve estar me achando uma pessoa muito burra e chata.

Mas não deu certo. Nada mudou.

Coloquei o codigo que me mandou no evento ao perder o foco do campo Objeto e nada aconteceu. Continuou como antes.

Evidentemente que não faço juízos desses. Não nasci ensinado, também aprendi e continuo aprender. Você é só distraída,,,pois continua a cismar com o Lost Focus. Não é aqui mas sim no GotFocus. Cole exactamente o que está aqui

Private Sub Objecto_GotFocus()
If IsNull(Me.Objecto) Then
Me.Objecto.Locked = False
End If
End Sub

Veja o exemplo, o mesmo, teste num registo com o campo nome em branco

Não sei nem como agradecer a ajuda. Tava mesmo distraída. Trabalhar nesse bd com minha filha no colo não estava me permitindo ter a atenção necessária. Muito obrigada!!!!

MAIS UMA DÚVIDA RESOLVIDA POR ESSE SUPER, MEGA, HIPER FORUM.

NÃO PARO DE DIZER QUE VOCÊS SÃO 1000!!!!!!!

Mas como sou curiosa e insistente, já vou abrir um novo tópico!!!!!!!!!

Abraços a todos!!!!! Mande lembranças para o Criquio.

Só mais uma coisa Vieira,

Tava olhando uns exemplos aqui do forum de bd em que a senha pedida aparece com *

Tentei ver os códigos, mas não consegui. Não me permite abrir em modo desing. Tem como resolver isso?

Peço licença para postar um exemplo que eu estava preparando dentro das dicas que eu tinha começado ontem. Como levei umas horas me dedicando à esse exemplo, resolvi postar mesmo o tópico já estando resolvido. Pode servir de inspiração para outros membros em outras ocasiões

A senha é 123456

MAIS QUE PERFEITO ESSE SEU EXEMPLO!!!!!!!

Vieira conseguiu me ajudar.

Mas não poderia deixar de dizer que senti sua falta. Rsrsrsrsrsrsrsrs.

Vou analisar seu modelo e ver como vai ficar melhor. (Pra não dizer que acho que não vou conseguir fazer como seu exemplo). kkkkkkkkkkkkkkkk

To tentando ocultar a senha para aperecer ****. Vi um modelo aqui mas não consegui ver o desing, mas vou tentando.

Depois eu farei um vídeo demonstrando as técnicas empregadas nesse exemplo e colocarei no respositório.

Ótima ideia. Não sabia que aqui no repositório tinham videos. To olhando seu modelo para ver se consigi adaptar.

Criquio, to tentando fazer como o seu modelo, mas ta dando erro de complilação no call bloquear. Mesmo tendo encerrado esse tópico vc pode me ajudar?

Não quer adaptar aquela rotina de colocar asteriscos como estava querendo?

Pode ser. É porque seu modelo ficou MARAVILHOSO. Mas pode ser o asteristico sim.

Adaptei a sua ideia ao do Vieira e ficou muitoooooo legal.

Continuei com o formato do Vieira, mas escondi o botão Desbloquear Campos que só está aparecendo se eu apertar o F2. Depois disse é solicitado a senha.

Tem como deixar essa caixa de diálogo (não sei se é assim que se chama) que solicita a senha com a aparência melhor? E tb gostaria de dicas sobre o asterístico.

De tantas dicas vou acabar me transformando em uma profissional de access. KKKKKKKKKKKKKKKKK

Vamos fazer assim, faça uma cópia do seu bd, retire tudo dele, deixando apenas o formulário. Faça um Compactar/Reparar e depois compacte em zip e poste como anexo aqui ou envie para ccsregistros@gmail.com que damos uma olhada. Mas como está na hora do sapo virar morcego, vou fazer as mesmas coisas que eu saí para fazer ontem. Amanhã cedo estou aqui de novo, certinho?

Ok

Sonhe com as anjinhas.

Boa tarde

Pessoal, sou novo aqui no fórum e tenho uma duvida parecida com a da Luciana.
Tenho um formulário com um subformulário, porem o código funciona apenas para o formulário e eu preciso travar ambos para não haver alteração. Podem me ajudar?

Obrigado assim mesmo!

Private Sub Comando606_Click()
If InputBox("Insira a senha", "Senha") = "123" Then
Me.IdCliente.Locked = False
Me.Saidas_Detalhes.Form.IdProduto.Locked = False
MsgBox "Senha válida", vbInformation, "Bem Vindo"
Else
MsgBox "Senha inválida", vbCrtical, "Erro"
Me.IdCliente.Locked = True
Me.Saidas_Detalhes.Form.IdProduto.Locked = True
End If
End Sub


Private Sub IdCliente_GotFocus()
If IsNull(Me.IdCliente) Then
Me.IdCliente.Locked = False
Me.Saidas_Detalhes.Form.IdProduto.Locked = False
End If
End Sub

Private Sub Form_Current()
Me.IdCliente.Locked = True
Me.Saidas_Detalhes.Form.IdProduto.Locked = True
End Sub