[Albino]

Boas.

Olá mais uma vez .

A duvida de hoje tem a ver com um formulário de entrada para folhas de um determinado ficheiro.

O meu intuito é.

Da folha de rosto, criar hiperligações para outras folhas do ficheiro, atrvez de  username e pass.

Esse nome e senha estão inscritos na folha2  nas colunas A e B, apartir da linha 3

Pretendo que o codigo verifique se o nome está registado e em caso afirmativo verifique tambem se a senhaé a correcta, abrindo a folha pedida só após estas duas condições estarem correctas.

Posteriormente o nome e senha que fizerem login irão ficar gravados na folha2 colunas D, E, F respectivamente Nome, Pass e Data e horas de acesso.(isto eu consegui)

Tenho um código que encontrei na net, tentei adptar e consegui algumas funções, mas faltam-me outras que não consigo resolver.

Por EX. o código não verifica a senha e entra mesmo colocando o nome e  senha invalida.

Criei um formulário com as entrdas , no entanto com os botões de opção do formulário não sou capaz de atinar com aquilo.

Segue código:

Private Sub cmdEntrar_Click()

If txtLogin1 = “” Then
MsgBox “Digite o nome do usuário !”
Exit Sub
txtLogin.SetFocus
Else
If txtSenha1 = “” Then
MsgBox “Digite a senha do usuário !”
Exit Sub
txtSenha.SetFocus
End If
End If

col = 1
lin = 2
While (Folha1.Cells(lin, col) <> txtLogin)
lin = lin + 1
If lin > 50 Then
MsgBox “Usuário não esta cadastrado”
Exit Sub
End If
Wend

Dim senha As String
lin = 3
col = 2
senha = Folha1.Cells(lin, col).Value
lin = lin + i
If lin > 50 Then

If txtSenha1 <> senha Then
MsgBox “A senha não confere !!”
Exit Sub
End If
Else
MsgBox “Seja Bem Vindo ” & txtLogin1
lin = 3
col = 4
While (Folha1.Cells(lin, col) <> “”)
lin = lin + 1
Wend
Folha1.Cells(lin, 4) = txtLogin1.Value
Folha1.Cells(lin, 5) = txtSenha1.Value
Folha1.Cells(lin, 6) = Format(Now, “DD/MM/YYYY – hh.mm.ss”) ‘Date

txtLogin1.Value = “”
txtSenha1.Value = “”

Folha2.Visible = xlSheetVisible
Sheets(“Entrada”).Activate
‘ActiveWindow.DisplayWorkbookTabs = False
Hide
End If

End Sub

Agradecia ajuda , coloco ficheiro de amostra .

Obrigado

 

Attachments:

You must be logged in to view attached files.

[jorgerod]

Albino,

 

Podes tentar utilizar, para as duas situações (nome e depois password), uma tipologia de código, aproveitando este exemplo:

 

Sub x()

Dim xlVntPasswords As Variant
Dim xlInputPass As String
Dim xlOutputMessage As String
Dim i As Integer

xlInputPass = Application.InputBox(“Please Enter Password”, “Password Input”, Type:=2)
xlOutputMessage = “Password Not Found”

xlVntPasswords = Sheet1.Range(“L4:L20”)

For i = LBound(xlVntPasswords) To UBound(xlVntPasswords)

Select Case xlInputPass

Case Is = xlVntPasswords(i, 1)
xlOutputMessage = “Password Found Do Stuff”
Exit For

End Select

Next i

MsgBox xlOutputMessage, vbOKOnly + vbInformation

End Sub

Vê e depois diz qq coisa, ok?

[Autor]

Artigos