Home » Forums » Open Source Learning Center » Question and Answer

Reenter password using VBA

Submitted by Anonymous on 31 January, 2011 - 23:16
I am writing code on how to create a password within certain guidelines and then verify. I am having an issue with the verify part. Any advice would be great. This is the code I have so far 
Sub Exercise12partB()
 
Dim PassWord As String
Dim NewPassword As Boolean
Dim TryAgain As Boolean
Dim i As Long
Dim Verify As Boolean
 
    Do
        i = 1
 
        PassWord = InputBox("Please create a Password. Must be 8 characters _
         long, must start wtih an uppercase letter and mush consist only of uppercase  _
         letters and digits with no spaces", "")
 
        NewPassword = (Len(PassWord) = 8) And (Left(PassWord, 1) Like "[A-Z]" And i <= 7)
        If Not NewPassword Then
            If MsgBox("The password must be 8 characters in length, all characters to" _
            & vbCrLf & "be UPPERCASE letters or digits, and must start with a letter." _
            & String(2, vbCrLf) & "Would you like to try again?", vbYesNo, "") = vbYes Then
                TryAgain = True
                GoTo Loopagain
            Else
 
                TryAgain = False
 
 
            End If
 
        End If
 
 
Loopagain:
    Loop While Not NewPassword And TryAgain
 
    If NewPassword Then
        MsgBox "You have Successfully created a new password"
         End If
End Sub
‹ Which (SUM) formula in EXCEL matches my requirement? need to collapse near duplicate rows ›
»

Redo

Submitted by Anonymous on 1 February, 2011 - 17:45.
I changed some of the code and I think I found the issue. I named my verify password as newpassword2. I need to figure out how to make newpassword = newpassword2 or set it up where they need to match. This is what I have 
Sub Exercise12partC()
 
Dim PassWord As String
Dim Newpassword As Boolean
Dim TryAgain As Boolean
Dim i As Long
Dim Newpassword2 As Boolean
 
 
    Do
        i = 1
 
        PassWord = InputBox("Please create a Password. Must  _
          be 8 characters long, must start wtih an  _
          uppercase letter and mush consist only of  _
          uppercase letters and digits with no spaces", "")
 
        Newpassword = (Len(PassWord) = 8) And (Left(PassWord, 1) Like "[A-Z]" And i <= 7)
        If Not Newpassword Then
            If MsgBox("The password must be 8 characters in length, all characters to" _
            & vbCrLf & "be UPPERCASE letters or digits, and must start with a letter." _
            & String(2, vbCrLf) & "Would you like to try again?", vbYesNo, "") = vbYes Then
                TryAgain = True
                GoTo Loopagain
            Else
 
                TryAgain = False
 
 
            End If
 
        End If
 
 
Loopagain:
    Loop While Not Newpassword And TryAgain
    Do
 
        PassWord = InputBox("Verify your password", "")
        Newpassword2 = ("Newpassword")
        If (Newpassword2 = True) Then MsgBox ("You have Successfully created a new password")
 
    Loop While (Newpassword2 = False)
 
 
 
 
End Sub
»