Excel【VBA】登錄窗口實(shí)現(xiàn)！
Excel【VBA】
創(chuàng)建登錄窗口！
效果如下圖所示：
輸入錯(cuò)誤進(jìn)行提示，輸錯(cuò)三次自動(dòng)退出系統(tǒng)
在ExcelVBA中創(chuàng)建窗體，插入兩個(gè)標(biāo)簽，兩個(gè)文本框，兩個(gè)命令按紐，如下所示：
用戶名對(duì)應(yīng)文本框名稱：txtUserName
密碼對(duì)應(yīng)文本框名稱：txtUserPW
確定按紐名稱：cmdOk
退出按紐名稱：cmdQuit
右擊確定按紐，創(chuàng)建SUB過程，對(duì)應(yīng)VBA代碼如下所示：
Option Explicit
Private Sub cmdOk_Click()
Dim sUserName As String, sUserPW As String
Static iCount As Integer
sUserName = txtUserName.Text
sUserPW = txtUserPW.Text
If sUserName = "admin" And sUserPW = "123" Then
MsgBox "登錄成功，歡迎您使用本系統(tǒng)！"
Unload Me
Application.Visible = True
Else
If Len(sUserName) * Len(sUserPW) = 0 Then
MsgBox "用戶名或密碼不能為空"
Else
MsgBox "用戶名或密碼不對(duì)，請(qǐng)重新輸入！"
iCount = iCount + 1
txtUserName.Text = ""
txtUserPW.Text = ""
txtUserName.SetFocus
If iCount = 3 Then
MsgBox "對(duì)不起，您嘗試的次數(shù)過多，登錄失??！"
Application.Quit
End If
End If
End If
End Sub
Private Sub cmdQuit_Click()
Application.Quit
End Sub
在this workbook中創(chuàng)建一個(gè)事件過程
當(dāng)工作簿打開時(shí)，最小化Excel，并顯示用戶登陸窗體
Option Explicit
Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled
Application.Visible = False
UserForm1.Show
End Sub
這樣一個(gè)簡(jiǎn)易的登陸窗口就制作完成了，覺得好用就分享給朋友吧！
========================
出自原創(chuàng)微信信息：自學(xué)成才Excel
新朋友長(zhǎng)按下方二維碼進(jìn)行關(guān)注！
如需轉(zhuǎn)載或投稿菜單欄下方聯(lián)系作者
ID：selftt
學(xué)習(xí)5分鐘，工作省2小時(shí)！
Excel技巧基礎(chǔ)+函數(shù)+透視表+VBA
點(diǎn)擊左下方閱讀原文一鍵加QQ群下載素材