之前兩天我們分享了如何通過VBA來實現(xiàn)工作薄的數(shù)據(jù)保護(hù)的功能，當(dāng)然都是批量性的操作，在一定程度上方便了大家的操作，同時滿足了部分場景下需要保護(hù)自己數(shù)據(jù)的需要，but，有時候我們的保護(hù)級別可能需要更加的高，比方說有粉絲說他自己電腦的數(shù)據(jù)壓根就不想讓人看，更不要說復(fù)制粘貼了，但是職場工作，難免會有其他同事看你的電腦或者多個班次共用電腦的情況，這樣某些關(guān)鍵數(shù)據(jù)的保護(hù)就尤為重要了，之前分享的數(shù)據(jù)保護(hù)功能就有點low了，那么今天我們升級下數(shù)據(jù)保護(hù)的功能，實現(xiàn)打開關(guān)鍵數(shù)據(jù)工作薄，會彈出登陸窗體，并且要輸入正確的密碼才可以打開的。
假設(shè) 當(dāng)前桌面有一個工作薄，里面的數(shù)據(jù)對我們來說是比較的關(guān)鍵的，我們今天要保護(hù)的就是這個工作薄的數(shù)據(jù)。我們希望實現(xiàn)的效果這樣的 打開工作薄的時候，數(shù)據(jù)隱藏，看不到，需要輸入正確的密碼 一打開工作薄是這樣的一個登陸窗體，必須輸入正確的用戶名和密碼之后，才可以查看打開工作薄，否則直接關(guān)閉該工作薄，來上代碼
今天的這個方法需要用到窗體的相關(guān)功能。但是窗體的相關(guān)信息我們還沒有學(xué)習(xí)。這里我們就暫時簡單的寫一下代碼，后續(xù)我們再詳細(xì)講解如何使用窗體
1.我們先插入一個窗體模塊，然后繪制相應(yīng)的窗體界面 簡易的登錄窗體的制作 僅僅是需要向三種窗體控件就可以了 2.雙擊確定按鈕，進(jìn)入代碼頁面，輸入如下代碼 Private Sub CommandButton1_Click()Dim k&Me.HideIf TextBox1.Value = 'admin' And TextBox2.Value = '123' Then MsgBox '歡迎你登陸！' Application.Visible = True Else MsgBox '您的輸入不合法請重新輸入！' Application.Visible = True ActiveWorkbook.CloseEnd IfEnd SubPrivate Sub CommandButton2_Click()Unload MeEnd Sub 3.雙擊thisworkbook，進(jìn)入新的代碼區(qū) 輸入新的代碼如下 Private Sub Workbook_Open()Application.Visible = FalseUserForm1.ShowEnd Sub 相關(guān)的操作已經(jīng)結(jié)束了，來我們看看對應(yīng)的效果 如果輸入的賬號密碼錯誤，會彈窗提示，單擊確定之后直接關(guān)閉工作薄，無法打開相應(yīng)的數(shù)據(jù) 如果你輸入正確的用戶名和密碼，會彈出歡迎窗口，并且進(jìn)入工作薄內(nèi)部，數(shù)據(jù)都可以進(jìn)行查看，操作了。
今天的步驟比較的復(fù)雜，有三個步驟缺一不可； 第一步是簡單的繪制窗體 第二步是操作對應(yīng)的按鈕的功能，大家可以先不了解步驟的原理，直接套用就好，我們后面在具體說窗體的各種功能和操作 內(nèi)部的代碼很簡單，大家都應(yīng)該能夠看懂，就是簡單的判斷，用戶名和密碼同時正確才可以進(jìn)入內(nèi)部查看數(shù)據(jù) 第三步也是很重要的一部，一定要在thisworkbook這個代碼區(qū)輸入第二段代碼，否則這個登陸窗體是無效的，大家一定要記得。 ======================================================= OK。今天就分享到這里了，當(dāng)然登陸窗體的功能還有很多，比方說小編現(xiàn)在自己做的這個窗體功能是這樣的 比較丑，純粹是為了實現(xiàn)功能而做的，勿噴 如果大家想要接觸的話，下方留言吧，我看看大家的需求是否足夠多，多的話我再分享，因為窗體的功能還沒有分享，現(xiàn)在說的話，大家可能還不太理解。 |
|
|
