VBA实现窗口登录

我就是我 2022-09-17 05:19 219阅读 0赞

核心代码：
    
    ' 窗口事件
    Private Sub CommandButton1_Click()    ' 登录
    If ComboBox2.Text = "" Or TextBox1.Text = "" Then
    MsgBox "请输入账户或密码", 1 + 64, "系统登录"
    Else
    If 特定用户密码登录(ComboBox2) = TextBox1.Text Then
    Unload Me
    MsgBox ComboBox2.Text & "你好!欢迎你进入本系统", 1 + 64, "欢迎词"
    Application.Visible = True
    Else
    MsgBox "登录密码错误,请重新输入"
    End If
    End If
    End Sub
    
    
    Private Sub CommandButton2_Click()     ' 退出
    Unload Me
    Application.Visible = True
    ActiveWorkbook.Close
    End Sub
    
    
    Private Sub UserForm_Initialize()     ' 窗口初始化
    Dim X As Integer, Y As Integer
    X = Sheets("用户及密码").Range("A65536").End(xlUp).Row
    For Y = 2 To X
    ComboBox2.AddItem Sheets("用户及密码").Cells(Y, 1)
    Next Y
    End Sub
    
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)  ' 设置不能通过关闭符号退出，仅能通过退出按钮退出
    If CloseMode = 0 Then Cancel = 1
    End Sub

![watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBAR29kXzY4Mzg_size_10_color_FFFFFF_t_70_g_se_x_16][]

![8f48d3a785dc433eb9c781278f14ac8c.png][]

' 模块
    Function 特定用户密码登录(X As Object)    
        Dim MROW As Integer
        MROW = Sheets("用户及密码").Cells.Find(X.Text).Row
        特定用户密码登录 = Sheets("用户及密码").Cells(MROW, 2)
    End Function

![watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBAR29kXzY4Mzg_size_11_color_FFFFFF_t_70_g_se_x_16][]

![watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBAR29kXzY4Mzg_size_10_color_FFFFFF_t_70_g_se_x_16 1][]

[watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBAR29kXzY4Mzg_size_10_color_FFFFFF_t_70_g_se_x_16]: /images/20220828/474c68188fec4878b3258e6bb4d70b07.png
[8f48d3a785dc433eb9c781278f14ac8c.png]: /images/20220828/31d6f4dd9a1944e6b15e140ab684be8e.png
[watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBAR29kXzY4Mzg_size_11_color_FFFFFF_t_70_g_se_x_16]: /images/20220828/dfe0764cdd7b40f7b3c83ca3d8d592f1.png
[watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBAR29kXzY4Mzg_size_10_color_FFFFFF_t_70_g_se_x_16 1]: /images/20220828/0e6cb1f419604747a08dbc8ce9ebb63b.png