EXCEL VBA登錄窗體設計

  登錄窗體設計:

主要介紹利用VBA做加密窗體登錄,代碼相對簡單易學。

1、 ALT+F11進入VBE開發環境,選擇thisworkbook對象,選擇workbook_open事件:

EXCEL VBA登錄窗體設計

2、 為workbook_open事件編輯代碼,工作簿打開時首先顯示用戶登錄窗體,判斷登錄信息是否正確,再決定是否顯示工作表界面:

Application.visible=false

Userform1.show

3、 插入用戶窗體:

EXCEL VBA登錄窗體設計

4、設置userform1屬性,並在窗體上添加一個label、兩個textbox用來輸入帳號和密碼,入三個command,分別設置確定,退出和幫助三個控件:

EXCEL VBA登錄窗體設計

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

6、 給三個command控件的click事件編輯代碼:

Private Sub CommandButton1_Click()

Command1(登錄)控件代碼:

If textbox1.text=」txf」 and textbox2.text=」123」then ‘設置登錄帳戶為:txf,密碼為:123

Userform1.hide ‘隱藏登錄窗體

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

Msgbox 「登錄成功」

Else

Msgbox 「帳號或密碼錯誤,請重新輸入」

End if

End sub

Command2(取消):

Private Sub CommandButton2_Click()

Thisworkbook.close ‘關閉工作簿登錄

End sub

Command3(幫助):

Private Sub CommandButton3_Click()

Userform2.show

End sub

7、 將工作簿保存為啟用宏的工作簿,工作簿的文件名後綴變為.xlam:

EXCEL VBA登錄窗體設計

8、 打開保存好的工作簿,測試:

EXCEL VBA登錄窗體設計

9、 登錄測試,輸入錯誤帳戶名或者密碼:

EXCEL VBA登錄窗體設計

10、 登錄正確帳戶和密碼,提示登錄成功:

EXCEL VBA登錄窗體設計