[Resolvido]Abre form com Senha

Olá

Preciso de abrir um form através de uma password tenho dois forms um botão que ao clicar abriria o form 2 mas pediria a password.

Código:

Private Sub Form_Open(Cancel As Integer)
Dim PassWord As String
PassWord = InputBox("Enter Password")
Cancel = (PassWord <> "Sousa" And PassWord <> "Sousa")
If Cancel Then MsgBox ("Password ERRADA !")
End Sub

Para além disso da um erro 2501...
Deixo também um exemplo em anexo !!!

Obrigado

Um bem hajam !

Coloque esse codigo no botão que clica para abrir o segundo form

Código:

Dim strResposta As String
strResposta = InputBox("Digite a Senha", "Senha Requerida", "", 1000, 1000)
If StrComp(strResposta, "Sousa", vbBinaryCompare) = 0 Then
DoCmd.Close
                        DoCmd.OpenForm "frm_2", acNormal
Else
MsgBox "Senha Divergente", vbCritical
DoCmd.CancelEvent
End If

E tire o seu código no evento open do form 2

Olá

Obrigado.

Ficou resolvido... Obrigado

Reabrindo este tópico , tem como colocar ***** em vez de aparecer a senha ?!?
Obrigado

Aqui tem código com uma forma de usar inputbox tendo a opção de mascarar como senha.
https://www.maximoaccess.com/t38695-nova-inputbox

Resolvido. Obrigado grande abraço

Um bem hajam

O fórum agradece o retorno. Sucesso.