Excel VBA工作薄 5.13数据保护再升级 关键资料登陆窗

前景提要（登陆窗体+密码双保护，关键数据安全有保证，你能打开算我输）

之前两天我们分享了如何通过VBA来实现工作薄的数据保护的功能，当然都是批量性的操作，在一定程度上方便了大家的操作，同时满足了部分场景下需要保护自己数据的需要，but，有时候我们的保护级别可能需要更加的高，比方说有粉丝说他自己电脑的数据压根就不想让人看，更不要说复制粘贴了，但是职场工作，难免会有其他同事看你的电脑或者多个班次共用电脑的情况，这样某些关键数据的保护就尤为重要了，之前分享的数据保护功能就有点low了，那么今天我们升级下数据保护的功能，实现打开关键数据工作薄，会弹出登陆窗体，并且要输入正确的密码才可以打开的。

场景模拟

假设 当前桌面有一个工作薄，里面的数据对我们来说是比较的关键的，我们今天要保护的就是这个工作薄的数据。我们希望实现的效果这样的

[ image.png

一打开工作薄是这样的一个登陆窗体，必须输入正确的用户名和密码之后，才可以查看打开工作薄，否则直接关闭该工作薄，来上代码

方法分析

今天的这个方法需要用到窗体的相关功能。但是窗体的相关信息我们还没有学习。这里我们就暂时简单的写一下代码，后续我们再详细讲解如何使用窗体

代码区

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，进入新的代码区

image.png

输入新的代码如下

Private Sub Workbook_Open()

Application.Visible = False

UserForm1.Show

End Sub

相关的操作已经结束了，来我们看看对应的效果

如果输入的账号密码错误，会弹窗提示，单击确定之后直接关闭工作薄，无法打开相应的数据

image.png

如果你输入正确的用户名和密码，会弹出欢迎窗口，并且进入工作薄内部，数据都可以进行查看，操作了。

image.png

代码分析

今天的步骤比较的复杂，有三个步骤缺一不可；

第一步是简单的绘制窗体

第二步是操作对应的按钮的功能，大家可以先不了解步骤的原理，直接套用就好，我们后面在具体说窗体的各种功能和操作

内部的代码很简单，大家都应该能够看懂，就是简单的判断，用户名和密码同时正确才可以进入内部查看数据

第三步也是很重要的一部，一定要在thisworkbook这个代码区输入第二段代码，否则这个登陆窗体是无效的，大家一定要记得。