核心代碼：' 窗口事件 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实现窗口登录的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。