小編致力于為大家奉獻最有效的經驗,讓大家能夠解決掉問題,但是大家也都知道,每個人遇到的情況都是不一樣的,大家在看小編經驗的同時,除了跟隨操作,也需要自己的思考,舉一反三的解決問題,這樣才會變得更加有內涵,成為和小編一樣的經驗達人。excel使用vba制作自己的密碼驗證,這里,讓小編給大家介紹一下。
首先我們打開一個工作樣表作為例子。
進入vba代碼編輯器,按下alt+f11組合快捷鍵進入。然后輸入以下代碼。
Sub login()
Dim strPassword As String '保存密碼
Dim i As Integer '輸入密碼的次數
Do
strPassword = InputBox("請輸入密碼") '輸入密碼
If strPassword = "test" Then '判斷密碼是否正確
Exit Do '退出循環
Else
MsgBox ("密碼不正確,請重新輸入")
End If
i = i + 1
Loop While i < 3
If i >= 3 Then '超過正常輸入密碼次數
MsgBox "密碼錯誤,退出程序!"
Application.Quit
Else
MsgBox "歡迎你使用本系統!"
End If
End Sub
首先我們定義了一個login過程。首先保存密碼定義為文本字符。輸入密碼定義為整數型。
接下來是使用do循環,循環的意思是重復的運行這段代碼,如果沒有設置停止條件,就會不停的運行下去。這里在do循環里就是不停的輸入密碼并進行判斷密碼是否正確。
大家可以看到密碼被窩設置為test,這里是固定密碼,如果有多個密碼,大家可以自行思考一下如何寫。接下來我們要對密碼驗證次數有一個設定值。也就是用while循環條件設置,比如這里的<3次。
因為這是一個過程,所以在使用時,我們要在工作薄內建立一個按鈕來激活這個過程,創建按鈕的方法就不贅述了。這里我來提示一下大家,這個過程的代碼是正常實現的,但是并不能起到加密的作用。還記得當初我教大家的如何在開啟程序的時候自動運行宏嗎?在workbook-open動作下使用call 過程。
先寫到這里了,謝謝大家的觀看。
祝大家生活愉快。
小編還有許多其他的經驗可以觀看,如果無法解決問題可以聯系小編進行咨詢。
看不清楚圖片的可以點擊放大再看哦。
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!