Vba实现密码验证

最新推荐文章于 2024-06-22 08:51:42 发布

啊东东_

最新推荐文章于 2024-06-22 08:51:42 发布

阅读量1.2k

点赞数 1

分类专栏： VBA 文章标签：测试用例程序人生

本文链接：https://blog.csdn.net/h_XUYUAN/article/details/124510048

版权

VBA 专栏收录该内容

16 篇文章 4 订阅

订阅专栏

一、密码部分：

二、代码部分：

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

三、结果呈现：