EXCEL技巧——用VBA限制登入密碼次數

2019-12-06 05:26:02

我們經常在登入一些系統的時候遇到過這樣的情況，如果密碼輸入幾次都錯誤的話，心痛就鎖死了，在短時間內就會處於凍結狀態，這個確實很簡單，我們可以用一段VBA程式碼來實現，現在我們就來自己嘗試一下。

新建一個EXCEL表格，單擊選單欄「開發工具」——VisualBasic，開啟VBA編輯器，我們將在這個編輯其中編寫程式碼。

在編輯器中選擇「Sheet2」，單擊「插入」——模組，現在就開啟了程式碼編輯框。

現在我們來輸入程式碼：

Sub login()

Dim strPassword As String '設定strPassword為字串常數

Dim i As Integer '定義i為整數量

strPassword = InputBox("請輸入密碼") '在此處輸入密碼輸入密碼

If strPassword = "123456" Then '判斷密碼是否正確，密碼為123456

Exit Do '退出Do迴圈

Else

MsgBox ("密碼有誤，重新輸入！") '提示密碼錯誤

End If

i = i + 1 'i迴圈一次增大1

Loop While i < 3

If i >= 3 Then 'i超過5次，輸出「請下次在來吧！」

MsgBox "請下次在來吧！"

Application.Quit

Else

MsgBox "歡迎光臨！" '如果密碼正確則輸出「歡迎光臨！」

End If

End Sub

單擊選單欄「執行」——執行子過程/使用者表單，彈出對話方塊「請輸入密碼」。

現在在密碼框中輸入「111111」，單擊確定，彈出對話方塊，提示「密碼有誤，請重新輸入」，連續輸入3次，彈出對話方塊提示「請下次再來吧！」

在密碼框中輸入「123456」，單擊確定，彈出對話方塊，提示「歡迎光臨」。