Excel中使用vba制作密碼驗(yàn)證的操作方法

　　excel使用vba制作自己的密碼驗(yàn)證，如何進(jìn)行操作呢?今天，學(xué)習(xí)啦小編就教大家在Excel中使用vba制作密碼驗(yàn)證的操作方法。

　　Excel中使用vba制作密碼驗(yàn)證的操作步驟如下：

　　首先我們打開(kāi)一個(gè)工作樣表作為例子。

　　進(jìn)入vba代碼編輯器，按下alt+f11組合快捷鍵進(jìn)入。然后輸入以下代碼。

　　Sub login()

　　Dim strPassword As String '保存密碼

　　Dim i As Integer '輸入密碼的次數(shù)

　　Do

　　strPassword = InputBox("請(qǐng)輸入密碼") '輸入密碼

　　If strPassword = "test" Then '判斷密碼是否正確

　　Exit Do '退出循環(huán)

　　Else

　　MsgBox ("密碼不正確，請(qǐng)重新輸入")

　　End If

　　i = i + 1

　　Loop While i < 3

　　If i >= 3 Then '超過(guò)正常輸入密碼次數(shù)

　　MsgBox "密碼錯(cuò)誤，退出程序!"

　　Application.Quit

　　Else

　　MsgBox "歡迎你使用本系統(tǒng)!"

　　End If

　　End Sub

　　首先我們定義了一個(gè)login過(guò)程。首先保存密碼定義為文本字符。輸入密碼定義為整數(shù)型。

　　接下來(lái)是使用do循環(huán)，循環(huán)的意思是重復(fù)的運(yùn)行這段代碼，如果沒(méi)有設(shè)置停止條件，就會(huì)不停的運(yùn)行下去。這里在do循環(huán)里就是不停的輸入密碼并進(jìn)行判斷密碼是否正確。

　　大家可以看到密碼被窩設(shè)置為test，這里是固定密碼，如果有多個(gè)密碼，大家可以自行思考一下如何寫(xiě)。接下來(lái)我們要對(duì)密碼驗(yàn)證次數(shù)有一個(gè)設(shè)定值。也就是用while循環(huán)條件設(shè)置，比如這里的<3次。

　　因?yàn)檫@是一個(gè)過(guò)程，所以在使用時(shí)，我們要在工作薄內(nèi)建立一個(gè)按鈕來(lái)激活這個(gè)過(guò)程，創(chuàng)建按鈕的方法就不贅述了。這里我來(lái)提示一下大家，這個(gè)過(guò)程的代碼是正常實(shí)現(xiàn)的，但是并不能起到加密的作用。還記得當(dāng)初我教大家的如何在開(kāi)啟程序的時(shí)候自動(dòng)運(yùn)行宏嗎?在workbook-open動(dòng)作下使用call 過(guò)程。