登錄窗體設(shè)計(jì)：

主要介紹利用VBA做加密窗體登錄，代碼相對(duì)簡(jiǎn)單易學(xué)。

1、 ALT+F11進(jìn)入VBE開(kāi)發(fā)環(huán)境，選擇thisworkbook對(duì)象，選擇workbook_open事件：

2、 為workbook_open事件編輯代碼，工作簿打開(kāi)時(shí)首先顯示用戶登錄窗體，判斷登錄信息是否正確，再?zèng)Q定是否顯示工作表界面:

Application.visible=false

Userform1.show

3、 插入用戶窗體：

4、設(shè)置userform1屬性，并在窗體上添加一個(gè)label、兩個(gè)textbox用來(lái)輸入賬號(hào)和密碼，入三個(gè)command，分別設(shè)置確定，退出和幫助三個(gè)控件：

5、 添加用戶窗體userform2,顯示幫助信息：

6、 給三個(gè)command控件的click事件編輯代碼：

Private Sub CommandButton1_Click()

Command1（登錄）控件代碼：

If textbox1.text=”txf” and textbox2.text=”123”then ‘設(shè)置登錄賬戶為：txf，密碼為：123

Userform1.hide ‘隱藏登錄窗體

Application.visible=true ‘顯示工作表界面

Msgbox “登錄成功”

Else

Msgbox “賬號(hào)或密碼錯(cuò)誤，請(qǐng)重新輸入”

End if

End sub

Command2(取消)：

Private Sub CommandButton2_Click()

Thisworkbook.close ‘關(guān)閉工作簿登錄

End sub

Command3(幫助)：

Private Sub CommandButton3_Click()

Userform2.show

End sub

7、 將工作簿保存為啟用宏的工作簿，工作簿的文件名后綴變?yōu)?/span>.xlam:

8、 打開(kāi)保存好的工作簿，測(cè)試：

9、 登錄測(cè)試，輸入錯(cuò)誤賬戶名或者密碼：

10、 登錄正確賬戶和密碼，提示登錄成功：