Excel VBA 密码登陆页面设计,数据库功能~~

2025-02-24 09:16:31

推荐回答（1个）

回答1：

我给你写个密码验证功能的函数：

function chk_pwd(byval u, byval p) as boolean
    dim i
    for i=2 to sheet2.usedrange.rows.count
        if u=sheet2.cells(i,1) and p=sheet2.cells(i,2) then
            chk_pwd = true
        end if
    next i
    chk_pwd = false
end function

使用上面的函数对输入的用户密码进行验证，例如：

chk_pwd("mop", "a918") 返回的结果将是true，表示密码正确