前景提要（登陆窗体+密码双保护，关键数据安全有保证，你能打开算我输）
之前两天我们分享了如何通过VBA来实现工作薄的数据保护的功能，当然都是批量性的操作，在一定程度上方便了大家的操作，同时满足了部分场景下需要保护自己数据的需要，but，有时候我们的保护级别可能需要更加的高，比方说有粉丝说他自己电脑的数据压根就不想让人看，更不要说复制粘贴了，但是职场工作，难免会有其他同事看你的电脑或者多个班次共用电脑的情况，这样某些关键数据的保护就尤为重要了，之前分享的数据保护功能就有点low了，那么今天我们升级下数据保护的功能，实现打开关键数据工作薄，会弹出登陆窗体，并且要输入正确的密码才可以打开的。
场景模拟
假设 当前桌面有一个工作薄，里面的数据对我们来说是比较的关键的，我们今天要保护的就是这个工作薄的数据。我们希望实现的效果这样的
[
一打开工作薄是这样的一个登陆窗体，必须输入正确的用户名和密码之后，才可以查看打开工作薄，否则直接关闭该工作薄，来上代码
方法分析
今天的这个方法需要用到窗体的相关功能。但是窗体的相关信息我们还没有学习。这里我们就暂时简单的写一下代码，后续我们再详细讲解如何使用窗体
代码区
1.我们先插入一个窗体模块，然后绘制相应的窗体界面
仅仅是需要向三种窗体控件就可以了
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，进入新的代码区
输入新的代码如下
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub
相关的操作已经结束了，来我们看看对应的效果
如果输入的账号密码错误，会弹窗提示，单击确定之后直接关闭工作薄，无法打开相应的数据
如果你输入正确的用户名和密码，会弹出欢迎窗口，并且进入工作薄内部，数据都可以进行查看，操作了。
代码分析
今天的步骤比较的复杂，有三个步骤缺一不可；
第一步是简单的绘制窗体
第二步是操作对应的按钮的功能，大家可以先不了解步骤的原理，直接套用就好，我们后面在具体说窗体的各种功能和操作
内部的代码很简单，大家都应该能够看懂，就是简单的判断，用户名和密码同时正确才可以进入内部查看数据
第三步也是很重要的一部，一定要在thisworkbook这个代码区输入第二段代码，否则这个登陆窗体是无效的，大家一定要记得。
