Some help again, on same thing
Some help again, on same thing
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: Some help again, on same thing

  1. #1
    New Member
    Join Date
    Mar 2002
    Posts
    26
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

     
    Im still working on the password entry thing.Dim strPass As String
    Dim iTries As Integer
    Private Sub CommandButton1_Click()

    strPass = TextBox1.Text

    Do Until iTries = 3
    If strPass = "Password" Then
    MsgBox "Log in OK!"
    Run "signin"
    End
    End If
    MsgBox "Log in NOT OK!"
    iTries = iTries + 1
    Exit Do
    Loop

    End Sub

    Is it possible to use a number of diffrent passwords, rather than a signgle set password??? I'll work on it, untill any sugestions, thanx alot

    Craig


  2. #2
    . MrExcel's Avatar
    Join Date
    Feb 2002
    Location
    Merritt Island Florida
    Posts
    858
    Post Thanks / Like
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)

    Default

      
    Instead of an If, use a Select:

    Select Case LoginID
    Case "pass1", "pass2", "pass3"
    Msgbox "Login OK"
    Case
    Msgbox "Not OK"
    End Select
    View a collection of recent Excel articles in the Excel Daily News

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

 

 
DMCA.com