还算较好用的【系统登录界面】附源码！

玫瑰蝴蝶雨

下载学习您优秀的作品，谢谢

Monster丶

最近也在做登录界面，给个小小建议，登录界面时候隐藏excle程序，如果密码输入错误会导致其它正在打开的文件无法显示出来。

YZC51

Monster丶 发表于 2019-8-22 09:11
最近也在做登录界面，给个小小建议，登录界面时候隐藏excle程序，如果密码输入错误会导致其它正在打开的文 ...

谢谢老师指教！代码已经修改！烦请老师测试！为了不浪费论坛资源，待测试正常后再上传附件！再次致谢！
Private Sub CommandButton1_Click()
Dim Sh
't = 0
'Application.ScreenUpdating = False
    If ComboBoxUser.Text = "" Then
        MsgBox "用户名不能为空！", vbCritical, "提示！"
        Exit Sub
    End If
    t = t + 1
    Set Sh = Sheets("设置")
    s = Sh.Range("A2:A65536").Find(ComboBoxUser, , , xlWhole).Row '查找用户在A列的位置
    If TextPassword.Text = Sh.Range("B" & s).Text Then
'       Call 隐藏表
        Sheet1.Visible = 2
        Sh.[C2] = ComboBoxUser.Text: Sh.[C3] = TextPassword.Text: Sh.[C4] = Now
        If Sheet12.[J7] = 1 Then Sh.[C5] = "切换" Else Sh.[C5] = "登录"
        With Sheet12
            .ScrollArea = "$D$6:$J$15"
            .[D4] = Sheets("设置").[C2]: .[J4] = Sheets("设置").[C4]
            .[H12] = 1: .[glqy] = "备用中"
            For i = 4 To 13
                If s > 1 Then b = Sheets("设置").Cells(s, i).Value Else Exit For
                If b = 1 Then                                   '单元格为1时，有权限打开这个表
                    n = (((i - 4) Mod 5) + 1) * 2 + 4
                    If i < 9 Then .Cells(n, 4) = Sheets("设置").[C2]
                    If i > 8 Then .Cells(n, 6) = Sheets("设置").[C2]
                End If
            Next
            .[H12] = 0
        End With
        Call 操作记录
        Unload Me
        t = 0
    Else
        If t >= 3 Then
            Unload Me
            Application.DisplayAlerts = False
            ActiveWorkbook.Close
            Application.DisplayAlerts = True
            Application.Visible = True
            t = 0
            Exit Sub
        End If
        MsgBox "密码错误！您还有" & 3 - t & "次机会！", vbCritical, "提示！"
        TextPassword.Text = ""
        TextPassword.SetFocus
        Exit Sub
    End If
    Application.Visible = True
    Sheets("登录").[G9].Select
    Call 状态条
'Application.ScreenUpdating = True
End Sub

windowskk

2.1版的VBA密码多少？

YZC51

windowskk 发表于 2019-9-19 17:26
2.1版的VBA密码多少？

老师好！很抱歉密码我自己都忘记啦！

windowskk

YZC51 发表于 2019-9-19 17:56
老师好！很抱歉密码我自己都忘记啦！

还有很多需要完善，比如记录登录那里，密码可以MD5加密或者不记录这个密码

YZC51

windowskk 发表于 2019-9-19 18:37
还有很多需要完善，比如记录登录那里，密码可以MD5加密或者不记录这个密码

谢谢老师！后来想到用动态密码，可以不记录这个密码，在登录时自动产生的！

windowskk

YZC51 发表于 2019-9-19 19:00
谢谢老师！后来想到用动态密码，可以不记录这个密码，在登录时自动产生的！

动态密码的我在研究中，我也是新手，不用这样称呼我，哈，方便的话，留联系方式交流下，我的QQ：1670739048

sunny_8848

多谢楼主多次更新好作品

YZC51

windowskk 发表于 2019-9-19 19:15
动态密码的我在研究中，我也是新手，不用这样称呼我，哈，方便的话，留联系方式交流下，我的QQ：16707390 ...

谢谢老师！从不上QQ的