前景提要（登陸窗體+密碼雙保護，關鍵數(shù)據(jù)安全有保證，你能打開算我輸）

之前兩天我們分享了如何通過VBA來實現(xiàn)工作薄的數(shù)據(jù)保護的功能，當然都是批量性的操作，在一定程度上方便了大家的操作，同時滿足了部分場景下需要保護自己數(shù)據(jù)的需要，but，有時候我們的保護級別可能需要更加的高，比方說有粉絲說他自己電腦的數(shù)據(jù)壓根就不想讓人看，更不要說復制粘貼了，但是職場工作，難免會有其他同事看你的電腦或者多個班次共用電腦的情況，這樣某些關鍵數(shù)據(jù)的保護就尤為重要了，之前分享的數(shù)據(jù)保護功能就有點low了，那么今天我們升級下數(shù)據(jù)保護的功能，實現(xiàn)打開關鍵數(shù)據(jù)工作薄，會彈出登陸窗體，并且要輸入正確的密碼才可以打開的。

場景模擬

假設 當前桌面有一個工作薄，里面的數(shù)據(jù)對我們來說是比較的關鍵的，我們今天要保護的就是這個工作薄的數(shù)據(jù)。我們希望實現(xiàn)的效果這樣的

image.png

一打開工作薄是這樣的一個登陸窗體，必須輸入正確的用戶名和密碼之后，才可以查看打開工作薄，否則直接關閉該工作薄，來上代碼

方法分析

今天的這個方法需要用到窗體的相關功能。但是窗體的相關信息我們還沒有學習。這里我們就暫時簡單的寫一下代碼，后續(xù)我們再詳細講解如何使用窗體

代碼區(qū)

1.我們先插入一個窗體模塊，然后繪制相應的窗體界面

image.png

僅僅是需要向三種窗體控件就可以了

2.雙擊確定按鈕，進入代碼頁面，輸入如下代碼

Private Sub CommandButton1_Click()

Dim k&

Me.Hide

If TextBox1.Value = "admin" And TextBox2.Value = "123" Then

    MsgBox "歡迎你登陸！"

    Application.Visible = True

    Else

        MsgBox "您的輸入不合法請重新輸入！"

        Application.Visible = True

        ActiveWorkbook.Close

End If

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

3.雙擊thisworkbook，進入新的代碼區(qū)

image.png

輸入新的代碼如下

Private Sub Workbook_Open()

Application.Visible = False

UserForm1.Show

End Sub

相關的操作已經結束了，來我們看看對應的效果

如果輸入的賬號密碼錯誤，會彈窗提示，單擊確定之后直接關閉工作薄，無法打開相應的數(shù)據(jù)

image.png

如果你輸入正確的用戶名和密碼，會彈出歡迎窗口，并且進入工作薄內部，數(shù)據(jù)都可以進行查看，操作了。

image.png

代碼分析

今天的步驟比較的復雜，有三個步驟缺一不可；

第一步是簡單的繪制窗體

第二步是操作對應的按鈕的功能，大家可以先不了解步驟的原理，直接套用就好，我們后面在具體說窗體的各種功能和操作

內部的代碼很簡單，大家都應該能夠看懂，就是簡單的判斷，用戶名和密碼同時正確才可以進入內部查看數(shù)據(jù)

第三步也是很重要的一部，一定要在thisworkbook這個代碼區(qū)輸入第二段代碼，否則這個登陸窗體是無效的，大家一定要記得。