Vba实现密码验证

一、密码部分：


 

二、代码部分：

Private Sub CommandButton1_Click()
    Dim a, b As String
    Dim c As Integer
    Sheet2.Range("E3") = InputBox("请输入密码", "友情提示：")
    a = Sheet2.Range("E3").Value
    For c = 2 To 42
        Debug.Print c
        If a = Sheet5.Cells(c, 2).Value Then
            MsgBox "密码输入正确"
            Exit Sub
        Else
            Debug.Print Sheet5.Cells(c, 2)
            If c = 42 Then
             MsgBox "密码输入错误，请重新输入"
            End If
        End If
    Next
End Sub

三、结果呈现：