[Albino]

Boas.

Cá venho eu com mais uma duvida que para mim é difícil, no entanto sei que será relativamente fácil de resolver, é o seguinte:

Tenho uma um userForm para efectuar login com duas caixas texto “Nome” e “Senha”, Numa das folhas do ficheiro tenho uma lista com os respectivos nomes e passes.

Já consegui arranjar código para verificar o nome e pass, mas o que eu queria agora era:

– Quando determinado nome e pass fossem validados, o utilizador iria ser encaminhado para determinada folha do ficheiro.

Coloco o código que fui adaptando .

Private Sub Ok_Click()

Dim bLoginVálido As Boolean

Dim sNome As String

Dim sSenha As String

 

sNome = NomeBox.Value

sSenha = SenhaBox.Value

 

bLoginVálido = fLogin(sNome, sSenha)

 

If bLoginVálido = True Then

MsgBox “Bem vindo, ” & sNome & “!”, vbInformation

fMain

Else

MsgBox “Nome de Utilizador e/ou senha inválidos!”, vbCritical

End If

End Sub

_______________________________________

Function fLogin(sNome As String, sSenha As String) As Boolean

Select Case sNome

Case “Romano”: If sSenha = Sheets(“Listas”).Range(“E2”).Value Then fLogin = True

Case “Armandina”: If sSenha = Sheets(“Listas”).Range(“E3”).Value Then fLogin = True

Case “Amelia”: If sSenha = “789” Then fLogin = True

‘…adicione outras linhas

End Select

End Function

____________________________________________________

Sub fMain()

    ‘O código abaixo só se executará se o login for efetuado.    

    Sheets(“DadosIn”).Select

        Range(“E2”).Select

 

NomeBox.Value = “”

SenhaBox.Value = “”

Me.NomeBox.SetFocus

Login.Hide

End Sub

PS: a minha questão e duvida é como dar a instrução na ultima parte do código para que cada login vá para determinada folha.

O código que eu tenho encaminha-me para a folha “DadosIn”, mas todos os login´s vão para a mesma desde que sejam as condições verdadeiras.

Obrigado desde já

Albino.P.

[jorgerod]

Boas, Albino,

 

Dá uma olhada neste link: http://www.mrexcel.com/forum/excel-questions/51199-user-name-password-open-excel-file.html

Pode ser que te dê algumas pistas para o que pretendes..

 

Fica bem e diz qq coisa, ok?

[Albino]

Boas

Não sei se irá de encontro aquilo que já tenho desenhado, não me parece.

O meu problema é só mesmo a ultima parte do codigo.

Basicamente seria:

Se Login “Romano” for Valido então abrie folha”Romano”

SE loguin For “XPTO” for valido então abrir folha “Plan3”

Vou estudar melhor

Obrigado

[Autor]

Artigos