如何在Excel中制作用戶登錄窗口

  為了保護Excel工作表,有時需要對工作表的打開設置權限,這就需要創建用戶登錄界面。在Excel中,制作用戶登錄窗口的方式很多,使用控件是其中的一種重要方法。本文介紹使用VBA窗體控件、文本框控件和按鈕控件等來制作用戶登錄窗口的方法。

  1、啟動Excel并打開工作表,打開Visual Basic編輯器,在工程資源管理器中鼠標右擊,選擇關聯菜單中的“插入”|“用戶窗體”命令插入一個用戶窗體。按F4鍵打開“屬性”對話框,在"Caption"文本框中輸入文字“用戶登錄”更改窗體標題,如圖1所示。



  圖1 創建用戶窗體并設置其屬性

  2、從“工具箱”對話框中分別選擇“文本框”控件、“標簽”控件和“命令按鈕”控件,在窗體中繪制這些控件,如圖2所示。在“屬性”對話框中將兩個“標簽”控件的"Caption"屬性分別設置為“登錄名”和“登錄密碼”,將“命令按鈕”控件的"Caption"屬性分別設置為“確定”和“取消”,如圖3所示。



  圖2 向窗體中添加控件



  圖3 修改控件的

  3、在窗體中選擇第二個“文本框”控件,在“屬性”對話框中將"PasswordChar"屬性設置為字符“*”,如圖4所示。這樣,在該文本框中輸入的字符將被“*”替代。



  圖4 更改“文本框”控件的

  4、鼠標右擊窗體中的“確定”按鈕,選擇關聯菜單中的“查看代碼”命令打開“代碼”窗口,此時Visual Basic編輯器將自動在“代碼”窗口中為控件添加Click事件。為該按鈕添加的Click事件程序如下:

  Private Sub CommandButton1_Click()

  If TextBox1.Text<>"郭軼凡"Then '判斷用戶名是否正確

  MsgBox"用戶登錄名錯誤,您無權登錄!" '不正確給出提示

  With TextBox1

  .SelStart=0 '設置選擇文字的開始字符

  .SelLength=Len(TextBox1.Text) '設置選擇文本的長度

  .SetFocus '文本框獲得焦點

  End With

  ElseIf TextBox2.Text<>"abcdef "Then '如果密碼錯誤

  MsgBox"密碼輸入錯誤,請重新輸入!" '給出提示

  With TextBox2

  .SelStart=0 '設置選擇文本的開始字符

  .SelLength=Len(TextBox2.Text) '設置選擇文本的長度

  .SetFocus '獲得焦點

  End With

  Else

  MsgBox"登錄成功,歡迎你的到來!" '登錄成功提示

  Unload Me '卸載窗體

  End If

  End Sub

  提示

  在這里,程序首先判斷第一個文本框的Text屬性值是否為設定的用戶名,如果不是則給出提示,同時使用With結構設置非常關鍵的SelStart屬性和SelLength屬性,使文本框中的文字能夠高亮顯示。同時,使用SetFocus方法使文本框獲得焦點以方便用戶更改用戶名。如果輸入的是設定的用戶名,程序接著判斷第二個文本框中的Text屬性值是否是設定的密碼,如果不是則執行與用戶名錯誤相同的操作。如果用戶名和密碼均正確,程序給出提示并卸載窗體。

  5、接著在“代碼”窗口中輸入程序代碼,為“取消”按鈕添加Click事件代碼,具體程序如下所示:

  Private Sub CommandButton2_Click()

  Unload Me '卸載窗體

  ThisWorkbook.Close '關閉工作簿

  End Sub

  6、按F5鍵運行程序出現“用戶登錄”窗口,在“登錄名”文本框中輸入人名,如果非授權用戶,程序給出提示,如圖4所示。單擊“確定”按鈕關閉提示對話框后,“登錄名”文本框獲得焦點,在其中輸入正確登錄名。在“登錄密碼”文本框中輸入密碼,如果密碼錯誤,程序給出提示,如圖5所示。如果輸入正確的用戶名和登錄密碼,程序提示登錄成功,如圖6所示。單擊“確定”按鈕關閉對話框,“用戶登錄”窗體將關閉。



  圖5 登錄名輸入錯誤提示



  圖6 密碼輸入錯誤提示



  圖7 登錄成功提示

  7、在工程資源管理器中雙擊"ThisWorkbook"選項打開“代碼”窗口,在其中輸入如下程序代碼使工作簿打開時用戶窗體可見。切換到Excel,保存文檔,完成本實例的制作。

  Private Sub Workbook_Open()

  UserForm1.Show

  End Sub

猜你喜歡

  1. Excel怎么制作用戶登錄窗口?

    本文介紹使用VBA窗體控件.文本框控件和按鈕控件等來制作用戶登錄窗口的方法. 1.啟動Excel并打開工作表,打開Visual Basic編輯器,在工程資源管理器中鼠標右擊,選擇關聯菜單中的" ...

  2. 如何在Excel中制作圖表功能

    表格數據所表達的信息常常顯得枯燥乏味,不易理解,如果制成圖表,則能一目了然。例如,圖1所示 Office所帶的圖表制作程序—Graph能利用表格數據來創建圖表。該程序作為Office工具中的一個組件, ...

  3. 如何在EXcel中如何制作二維碼?

    二維碼在我們生活中已經是普遍的存在那么如何在EXcel中如何制作二維碼呢? 新建一個Excel表格,在A1單元格中輸入需要生成二維碼的代碼信息. 1. 先要下載一個控件qrmaker,下載的文件解壓后 ...

  4. Win7系統如何在excel中添加word文檔結構圖

    Win7系統如何在excel中添加word文檔結構圖 方法一: Word提供了一個很方便的功能--文檔結構圖,通過文檔結構圖可以在整個文檔中快速瀏覽并追蹤特定的文件內容位置.文檔結構圖是一個獨立的窗口 ...

  5. 如何在Excel中打印工作表圖文教程

    設置好工作表后,有時還需要將其打印成紙質文件,下面就來學習如何在Excel中打印電子表格。 打印設置 打印頁面設置可以調整紙張放置方向、大小、打印質量等,單擊“頁面布局”選項卡,在“頁面設置”區域可以 ...

  6. 如何在Excel中繪制斜線表頭

    一般情況下在Excel中制作表頭,都把表格的第一行作為表頭,然后輸入文字。不過,這樣的表頭比較簡單,更談不上斜線表頭了。能不能在Excel中可以實現斜線表頭,下面就是具體的方法: 由于作為斜線表頭的單 ...

  7. 在Excel中制作下拉列表的3種方法

    下拉列表在Excel中的用途十分廣泛。在Excel中制作下拉列表可以通過數據有效性、使用窗體控件和VBA控件工具箱中的組合框來制作。下面我們用一個具體的例子來進行說明(在文章結尾處可下載xls格式的示 ...

  8. 如何在Excel中自定輸入數據下拉列表?

    excel操作中如果在單元格中經常需要輸入固定格式的數據,我們就可以利用Excel自定輸入數據下拉列表來方便操作。那么如何在excel中自定數據下拉列表呢,接下來我將向大家介紹。 方法/步驟 打開要編 ...