VBA实现窗口登录

核心代码：' 窗口事件 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 SubPrivate Sub CommandButton2_Click() ' 退出 Unload Me Application.Visible = True ActiveWorkbook.Close End SubPrivate 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 SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ' 设置不能通过关闭符号退出，仅能通过退出按钮退出 If CloseMode = 0 Then Cancel = 1 End Sub

 

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

 

 

总结

以上是生活随笔为你收集整理的VBA实现窗口登录的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。