[Resolvido]Bloqueio da tecla Shif com Pass

Bom dia,
Estive a ver os exemplos que temos aqui no forum em relação a tecla Shift mas todos eles apenas falam em activação e desactivação da mesma. Na realidade o que pretendia era que quando utiliza-se o Shift aparecesse algo a pedir uma pass e caso fosse correcta deixa-se aceder ao Tabelas/formulario/relatorios ect.
Um amigo meu indicou-me o seguinte codigo:

DisableBypassKey
Private Sub Label44_DblClick(Cancel As Integer)
On Error GoTo Err_bDisableBypassKey_Click
'This ensures the user is the programmer needing to disable the Bypass Key Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _ "Please key the programmer's password to enable the Bypass Key." strInput = InputBox(Prompt:=strMsg, title:="Disable Bypass Key Password") If strInput = "1212" Then
SetProperties "AllowBypassKey", dbBoolean, True
Beep
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _
"The Shift key will allow the users to bypass the startup options the next time the database is opened.", _ vbInformation, "Set Startup Properties"
Else
Beep
SetProperties "AllowBypassKey", dbBoolean, False
MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & _ "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.", _ vbCritical, "Invalid Password"
Exit Sub
End If
Exit_bDisableBypassKey_Click:
Exit Sub
Err_bDisableBypassKey_Click:
MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description
Resume Exit_bDisableBypassKey_Click
End Sub

Sinceramente não sei se dá resultado ou como a devo utilizar. Ha possibilidade de me ajudarem?
Obrigado

Pedro, nesse tópico tem link para um outro tópico que aborda isso e tem dois anexos, sendo um meu e o outro do Vieira com exemplos práticos: http://maximoaccess.forumeiros.com/t1941-resolvidosenha-para-impedir-edicao-em-campo

Boas Criquio, estava a ver o outro tópico e fiquei com uma questão.
O que acontece a tecla Shift se fizer aquilo? Mantem-se activa para todos e todos terão acesso, correcto?

Do qual exemplo estás a falar?

Do primeiro de todos, que esta no link que indicas-te.

cole num modulo novo e salve;~


Function AlterarPropriedade(strPropName As String, _
varPropType As Variant, varPropValue As Variant) As Integer
' Função obtida no Help do Access 97 e alterada
' por João Rodrigues (JR).

Dim dbs As Database, Prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
AlterarPropriedade = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then
' Propriedade não localizada. Vamos então criá-la.
' Exige permissão dbSecWriteDef (somente membro de
' Administradores poderá alterar a propriedade.
Set Prp = dbs.CreateProperty(strPropName, varPropType, _
varPropValue, True)
dbs.Properties.Append Prp
Resume Next
Else
' Erro desconhecido.
AlterarPropriedade = False
MsgBox "Erro " & Err.Number & vbCrLf & Err.Description, _
vbExclamation, "Alterar Propriedade"
Resume Change_Bye
End If
End Function

cole noutro modulo novo e salve


Public Function DeixaEntrar()

Dim x As String, y As String

x = "sardao"
y = InputBox("Digite a senha", "Senha")

If y = x Then

AlterarPropriedade "AllowBypassKey", dbBoolean, True

Else

AlterarPropriedade "AllowBypassKey", dbBoolean, False

Exit Function
End If
End Function


efectue o chamamento desta ultima função, numa macro de nome autoexec.

Aquele código apenas coloca a senha. Para realizar a ação pretendida, tem que adicionar o código dessa ação. Por exemplo:

If InputBox("Insira a senha", "Senha") <> "SuaSenhaAqui" Then
    MsgBox "Senha inválida", vbOkOnly + vbCritical, "Erro"
    Me.NomeCampo.Undo
Else
    Call LiberaShift
End If

O anexo que eu coloquei mais abaixo trata exatamente disso. É um exemplo que abre um formulário para ativar ou desativar o Shift.

Tira-me só uma duvida, onde devo por estes codigos?
Supostamente no formulário que esta a abrir em 1º lugar, correcto?
Terei de criar uma tabela so para isto ou nao é necessario?

Talvez fosse melhor você baixar o anexo SenhaHabilitaCampos.zip que eu postei no tópico do link anterior e dar uma estudada nele.

Criquio, eu penso que não estas a entender o que realmente pretendo.
Tas a dar-me exemplos de como bloquear campos com Pass. Realmente é uma ferramente util, mas não que preciso.
O que realmente pretendo é o seguinte:

Eu tenho a base de dados a abrir automaticamente num certo formulario, se eu quiser alterar alguma coisa nos formulario ou nas tabelas poderei faze-lo carregando na tecla SHIFT ao mesmo tempo que tento abrir o programa. O que pretendo não é desactivar essa possibilidade mas sim obter uma protecção atraves dessa tecla, ou seja, ele iria pedir-me uma pass que so eu saberia e assim sendo, só eu teria possibilidade de editar toda a BD.

Espero que consigas entender..... :S

gostaria de saber porque você ignorou o que lhe passei.

está bem explicado, você entendeu ou não ?

Desculpa ricardo, é que nem me aprecebi :S
Mais uma vez desculpa, nao foi por mal... :S
Vou ver agora para ver se entendo

Ricardo estive a ver e estou apenas com uma duvida.
Eu tenho uma macro criada com o nome "autoexect" para abrir o formulario de login.
Devo acrescentar o modolo com a ultima função que passas-te a pouco, certo?
O problema é que faço open e ele abre o modulo para editar :S
Talvez seja algo que não tenha feito correctamente, podias explicar?

Obrigado e mais uma vez desculpa a pouco :S

na macro, primeira linha você coloca RunCode e invoca a função em baixo.

retira o abrir do form nessa macro


e na função fica assim;

Public Function DeixaEntrar()
Dim x As String, y As String

x = "sardao"
y = InputBox("Digite a senha", "Senha")

If y = x Then

AlterarPropriedade "AllowBypassKey", dbBoolean, True
DoCmd.OpenForm "teuForm", acNormal
Else

AlterarPropriedade "AllowBypassKey", dbBoolean, False
DoCmd.OpenForm "teuForm", acNormal
Exit Function
End If
End Function

Já esta a funcionar mas esta a fazer algo que não queria.
Ele sempre que abro a base de dados vai perguntar essa pass a pessoa.
Eu queria que ela activasse somente quando carrego no Shift...

então tente inovar

procure por KeyCode = 16

por exemplo, no vba do seu formulario principal

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 16 Then
Call DeixaEntrar
Else
KeyCode = 0
End If
End Sub

altere o codigo que lhe tinha feito para poder fechar o banco, para que o efeito do habilitar ou desabilitar tenha resultados

Public Function DeixaEntrar()
Dim x As String, y As String

x = "sardao"
y = InputBox("Digite a senha", "Senha")

If y = x Then

AlterarPropriedade "AllowBypassKey", dbBoolean, True
Application.Quit (acQuitSaveAll)
Else

AlterarPropriedade "AllowBypassKey", dbBoolean, False
Application.Quit (acQuitSaveAll)
Exit Function
End If
End Function


o form tem de ter visualizar teclas = SIM

e devo procurar a onde?

vou tentar...

Fica na mesma...desta forma ele nem me pede a pass. Talvez seja por eu ter ja um login associado...nao sei, ele quando faço Shift e abro ele leva-me as BD's.

você quer fazer isso já com o form aberto, é assim como lhe disse.

se você quer abrir o banco com a tecla shift já pressionada, é de todo impossivel e aí tem de fazer como lhe passei no inicio.

Sim, mas como disses-te ao inicio tem um problema, mas nao sei se deveria estar sempre a acontecer.
Mesmo carregando so para abrir, aparece aquilo por causa da pass, é normal? Nao deveria aparecer so quando carrega-se no Shift?

Boas pessoal,

Estou com um pequeno problema..

Criquio, estava a utilizar a forma que indicou de desabilitar a tecla Shift mas penso que no office 2010 não funciona, pelo menos ele não reconhece esta expressao "Call LiberaShift".

Poderiam ajudar?

Obrigado

Acabei de testar no Access 2010 aqui e funcionou sem problemas. Talvez tenha alguma coisa faltando ou passando aí. Alguma referência AUSENTE por exemplo. Dê uma verificada nisso. Se não for isso, tente depurar para ver se tem algum erro de código.

Eu ja sei o que é...

Ele esta a chamar a função Call LiberaShift mas eu nao a tenho :S

Tem o módulo completo no exemplo desse tópico.

Muito bom o Exemplo e o codigo prefeito.

Vou ver melhor, mas acho que está bem explicito.
So quero entender melhor agora as conversoes que indicas nesse topico..
eu ja tenho as tabelas todas ligadas mas gostava que ninguem conseguisse entrar/encontrar no banked.
Se puser um banked numa pasta com segurança nao consigo ligação entre o Banked e o fronted.
Se proteger com password, nao conseguem aceder sem a mesma...
Nao sei bem o que fazer...