Excel vba用戶名/密碼查找

Question

Private Sub cmdLogin_Click() 
On Error GoTo ErrorHandler 

Dim RowNo As Long 
Dim Id As String 
Dim pw As String 
Dim ws As Worksheets 

Application.ScreenUpdating = False 
Set ws = Worksheets("User&Pass") 
Id = LCase(Me.txtLogin) 


RowNo = Application.WorksheetFunction.Match(Id, ws.range("A2:A999"), 0) 

CleanExit: 
Set ws = Nothing ' free memory 
Application.ScreenUpdating = True ' turn on the screen updating 
Exit Sub 

ErrorHandler: 
MsgBox "Unable to match ID, enter valid ID.", vbOKOnly 
GoTo CleanExit 

End Sub 

我有一個excel用戶表單我一直在努力，現在我需要它通過登錄屏幕看起來更專業。我已經開始使用上面的代碼，但是我已經陷入了死衚衕。

如何設置我的目的是說如果密碼匹配，然後加載工作簿或取消隱藏工作簿並繼續。用戶名和密碼位於名爲「用戶&通行證」的表單中 目的是從a-user/b-pw的列分別讀取，如果它是成功的，我將隱藏該表以便他們不能看到其他用戶的信息

與我上面開始我只需要它說，如果它匹配usercolumn那麼相應的PW隔壁它繼續別人去我的ErrorHandler

我可以做格式化有關隱藏和取消隱藏表等只需要閱讀幫助用戶名和密碼

非常感謝 Z

編輯嘗試一個;

Private Sub cmdLogin_Click() 
On Error GoTo ErrorHandler 
Dim RowNo As Long 
Dim Id As String 
Dim pw As String 
Dim ws As Worksheets 
Application.ScreenUpdating = False 
Set ws = Worksheets("User&Pass") 

Id = LCase(Me.txtLogin) 
RowNo = Application.WorksheetFunction.Match(Id, ws.range("A2:A999"), 0) 
RowNo = RowNo + 1 
pw = ws.range("B" & RowNo) 
If pw = Me.txtLogin Then 
'continue 
txt1.Value = "yes" 
Else 
GoTo ErrorHandler 
End If 


CleanExit: 
Set ws = Nothing ' free memory 
Application.ScreenUpdating = True ' turn on the screen updating 
Exit Sub 
ErrorHandler: 
MsgBox "Unable to match ID, enter valid ID.", vbOKOnly 
GoTo CleanExit 
End Sub 

@siddarthRout

Private Sub cmdLogin_Click() 
Dim RowNo As Long 
Dim Id As String, pw As String 
Dim ws As Worksheet 
Dim aCell As range 
On Error GoTo ErrorHandler 
Application.ScreenUpdating = True 

Set ws = Worksheets("Details") 
Id = LCase(Me.txtLogin) 

Set aCell = ws.Columns(1).Find(What:=Id, LookIn:=xlValues, _ 
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
MatchCase:=False, SearchFormat:=False) 

'~~> If match found 
If Not aCell Is Nothing Then 
RowNo = aCell.Row 
'~~> Rest of your code. For example if the password is 
'~~> Stored in Col B then 
Debug.Print aCell.Offset(, 1) 
Unload Me 
FrmMenu.Show 
'~~> You can then use the above aCell.Offset(, 1) to 
'~~> match the password which the user entered 
Else '<~~ If not found 
MsgBox "Unable to match ID, enter valid ID.", vbOKOnly 
End If 
CleanExit: 
Set ws = Nothing 
Application.ScreenUpdating = True 
Exit Sub 
ErrorHandler: 
MsgBox Err.Description 
Resume CleanExit 
End Sub 

Answer 1

檢測過，並試圖

這是你想什麼呢？

CODE

Option Explicit 

Private Sub cmdLogin_Click() 
    Dim RowNo As Long 
    Dim Id As String, pw As String 
    Dim ws As Worksheet 
    Dim aCell As Range 

    On Error GoTo ErrorHandler 

    If Len(Trim(txtLogin)) = 0 Then 
     txtLogin.SetFocus 
     MsgBox "Username cannot be empty" 
     Exit Sub 
    End If 

    If Len(Trim(txtPassword)) = 0 Then 
     txtPassword.SetFocus 
     MsgBox "Password cannot be empty" 
     Exit Sub 
    End If 

    Application.ScreenUpdating = False 

    Set ws = Worksheets("User&Pass") 
    Id = LCase(Me.txtLogin) 

    Set aCell = ws.Columns(1).Find(What:=Id, LookIn:=xlValues, _ 
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False) 

    '~~> If match found 
    If Not aCell Is Nothing Then 
     RowNo = aCell.Row 
     If Me.txtPassword = aCell.Offset(, 1) Then 
      FrmMenu.Show 
      Unload Me 
     Else 
      MsgBox "Unable to match UserID or PasswordID, Please try again", vbOKOnly 
     End If 
    Else '<~~ If not found 
     MsgBox "Unable to match UserID or PasswordID, Please try again", vbOKOnly 
    End If 
CleanExit: 
    Set ws = Nothing 
    Application.ScreenUpdating = True 
    Exit Sub 
ErrorHandler: 
    MsgBox Err.Description 
    Resume CleanExit 
End Sub 

提示：

不要讓什麼是不正確的用戶知道（從安全的角度來看） - 用戶名或密碼。始終顯示的通用消息像「無法匹配用戶名或PasswordID，請重試」 :)

HTH

希德

Answer 2

另一種方式

On Error Resume Next 
If Me.password <> Application.VLookup(Me.username, Sheet1.Cells(1, 1).CurrentRegion, 2, False) Then 
    MsgBox ("incorrect") 
    Exit Sub 
Else 
    MsgBox ("Correct Password Entered") 
End If 

你也將需要確保所有工作表從一開始就是xlSheetVeryHidden，以防止宏被禁用，並將其作爲成功登錄例程的一部分取消隱藏。您還需要在VBA項目上設置密碼，以防止人員取消隱藏表單。但請記住，Excel和溼紙袋一樣安全;）