[Resolvido]Senha para Botão de Formulário

Bom dia a todos,
Eu precisava colocar uma senha num determinado botão. O problema é que quando o botão é criado, ele já cria um evento (pelo assistente) "ao clicar" para abrir um formulário especifico. O problema é que não quero que os usuarios abram este formulário, apenas o supervisor e com senha. E este formulário precisa ficar nesta máquina, pois é nela que são feitos os backups do aplicativo. Eu tentei colocar um código que eu peguei aqui mesmo no forum, porém ele pede a senha normalmente, mais se eu digitar errado, e dar ok ele fecha a caixa da senha e o formulario está aberto ´pdendo ser usado normalmente, devido ao evento que descrevi acima.
Espero ter sido claro na esplanação, e que vocês possam mais uma vez me ajudar... Desde já agradaço a todos.

Qual o código que tem no botão? Esse botão destina-se a abrir própriamente o quÊ?

http://dl.dropbox.com/u/771097/NardaoII.rar

Senha= jpaulo

O Exemplo do Mestre é perfeito, mas se pretender faze-lo de uma forma simples e através do botão de comando, basta digitar no evento click:

Static Tentativas As Integer
Dim Msg, Style, Title
Msg = "A password não condiz"
Style = vbCritical
Title = "Aviso"
Tentativas = Tentativas + 1
If pass = "xxxx" Then
DoCmd.OpenForm "xxxxxxxx"
Else
Msg=MsgBox(Msg,Style,Title)
If Tentativas = 3 Then DoCmd.Quit
End If

Obrigado, mais uma vez a todos... Testei o exemplo e o código e deu certo... ERa exatamente o que eu precisava e estava com dificuldade para implantar. Mais uma vez vocês me ajudaram bastante, pois onde estou a implantar este sistema que estou fazendo é necessário muita segurança, e esta solução me quebrou um galho... Muito obrigado a todos...
Vocês são demaiiiiiis.....

A imaginação vai até onde nós proprios quisermos.

Aproveitando ainda o tópico:

Senha= JPaulo, não é a mesma coisa que Senha= jpaulo

Então vamos fazer um sensitive case, com a comparação de binário em maiusculas e minusculas.


Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim strResposta As String
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "JPaulo", vbBinaryCompare) = 0 Then
DoCmd.Close
DoCmd.OpenForm "SeuSegundoFormulario"
Else
MsgBox "Senha incorreta...", vbCritical
DoCmd.CancelEvent
End If
End Sub

Este exemplo do amigo jpaulo é ótimo. No entanto preciso adaptar este este código ai abaixo.



este é o que desabillita a tecla e funciona.

Private Sub Comando102_Click()
SetProperties "AllowBypassKey", dbBoolean, False
MsgBox "The Bypass Key was disabled." & vbCrLf & vbLf & _
"The Shift key will NOT allow the users to bypass the startup options the next time the database is opened.", _
vbInformation
End Sub


Como colocar uma senha para que este mesmo código possa funcionar como estava e pedir uma senha para ser executado

Aguardo. Abraços.

O exemplo do nosso amigo JPaulo foi legal.

colei  código no corpo da função e retirei os comando DoCmd.

Problema resolvido. Abre a função diretamente

So falta agora colocar mascara na senha pois esta sendo visualizada.

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim strResposta As String
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "JPaulo", vbBinaryCompare) = 0 Then
DoCmd.Close
DoCmd.OpenForm "SeuSegundoFormulario"
Else
MsgBox "Senha incorreta...", vbCritical
DoCmd.CancelEvent
End If
End Sub


Esse codigo do JPaulo é muito Bom
Mas quando eu clico em "cancelar" , "ok" ou o "X" de fechar aparece mensagem de senha incorreta
Tambem quando não tem nada no campo senha e a gente aperta qualquer uma das opções citadas acima
ele mostra mensagem de senha incorreta.
Porem queria saber se tem como anular isso, e a mensagem de senha incorreta aparecer somente
quando realmente a senha estiver errada.
E o campo senha mostra a senha enquanto a gente digita , tem como fazer aparecer ****** no lugar
daquilo que a gente esta digitando.
E as mensagem de senha incorreta e de entre com a senha aparecerem centralizadas na tela.

Grato. Att. Paulo

Eu adaptei o código do JPaulo, porém ele não segue a segunda instrução "cassia"

Private Sub Comando794_Click()
Dim strResposta As String

If Forms![Menu Principal]!User = "Karine" Then
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "teste", vbBinaryCompare) = 0 Then
DoCmd.OpenForm "frmExemplo"

ElseIf Forms![Menu Principal]!User = "Cassia" Then
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "teste2", vbBinaryCompare) = 0 Then
'DoCmd.Close
DoCmd.OpenForm "frmExemplo"
End If

Else
MsgBox "Senha incorreta...", vbCritical
DoCmd.CancelEvent

End If
End If
End Sub

Código:

Private Sub SeuBotao_Click()
'By JPaulo ® Maximo Access
Dim strResposta As String

'se o user for a Karine, pede senha
If Me.user = "Karine" Then
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
'se cancelar a inputbox, fecha sem erro
    If StrPtr(strResposta) = 0 Then
    Exit Sub
    End If
'valida a senha á Karine
    If StrComp(strResposta, "teste", vbBinaryCompare) = 0 Then
'se acertar, abre o form1
    DoCmd.OpenForm "form1"
    Exit Sub
    Else
'se não acertar, dá msg de erro
    MsgBox "Senha incorreta...", vbCritical
    DoCmd.CancelEvent
    Exit Sub
    End If
End If

'se o user for a Cassia, pede senha
If Me.user = "Cassia" Then
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
'se cancelar a inputbox, fecha sem erro
    If StrPtr(strResposta) = 0 Then
    Exit Sub
    End If
'valida a senha á Cassia
If StrComp(strResposta, "teste2", vbBinaryCompare) = 0 Then
'se acertar, abre o form2
DoCmd.OpenForm "form2"
Exit Sub
    Else
'se não acertar, dá msg de erro
    MsgBox "Senha incorreta...", vbCritical
    DoCmd.CancelEvent
    Exit Sub
End If
End If

Consegui, muito obrigado JPaulo

Fico feliz.

Obrigado pelo retorno o forum agradece.

JPaulo, me da mais uma ajuda, tenho um formulário com 400 registros como faço para sair do formulario exemplo no registro 320/400 e ao abri-lo novamente ele abra no registro 320/400 que foi o ultimo em que parei?

Nova duvida, novo tópico.

Este está Resolvido.

Certo, criei me ajuda lá?
https://www.maximoaccess.com/t31227-abrir-formulario-no-registro-salvo#215777