返回目录：excel表格制作
前景提要
之前两天我们分享了如何通过VBA来实现工作薄的数据保护的功能，当然都是批量性的操作，在一定程度上方便了大家的操作，同时满足了部分场景下需要保护自己数据的需要，but，有时候我们的保护级别可能需要更加的高，比方说有粉丝说他自己电脑的数据压根就不想让人看，更不要说复制粘贴了，但是职场工作，难免会有其他同事看你的电脑或者多个班次共用电脑的情况，这样某些关键数据的保护就尤为重要了，之前分享的数据保护功能就有点low了，那么今天我们升级下数据保护的功能，实现打开关键数据工作薄，会弹出登陆窗体，并且要输入正确的密码才可以打开的。
场景模拟
假设 当前桌面有一个工作薄，里面的数据对我们来说是比较的关键的，我们今天要保护的就是这个工作薄的数据。我们希望实现的效果这样的
打开工作薄的时候，数据隐藏，看不到，需要输入正确的密码
一打开工作薄是这样的一个登陆窗体，必须输入正确的用户名和密码之后，才可以查看打开工作薄，否则直接关闭该工作薄，来上代码
方法分析
今天的这个方法需要用到窗体的相关功能。但是窗体的相关信息我们还没有学习。这里我们就暂时简单的写一下代码，后续我们再详细讲解如何使用窗体
代码区
1.我们先插入一个窗体模块，然后绘制相应的窗体界面
简易的登录窗体的制作
仅仅是需要向三种窗体控件就可以了
2.双击确定按钮，进入代码页面，输入如下代码
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，进入新的代码区
输入新的代码如下
Private Sub Workbook_Open()Application.Visible = FalseUserForm1.ShowEnd Sub
相关的操作已经结束了，来我们看看对应的效果
如果输入的账号密码错误，会弹窗提示，单击确定之后直接关闭工作薄，无法打开相应的数据
如果你输入正确的用户名和密码，会弹出欢迎窗口，并且进入工作薄内部，数据都可以进行查看，操作了。
代码分析
今天的步骤比较的复杂，有三个步骤缺一不可；
第一步是简单的绘制窗体
第二步是操作对应的按钮的功能，大家可以先不了解步骤的原理，直接套用就好，我们后面在具体说窗体的各种功能和操作
内部的代码很简单，大家都应该能够看懂，就是简单的判断，用户名和密码同时正确才可以进入内部查看数据
第三步也是很重要的一部，一定要在thisworkbook这个代码区输入第二段代码，否则这个登陆窗体是无效的，大家一定要记得。
=======================================================
OK。今天就分享到这里了，当然登陆窗体的功能还有很多，比方说小编现在自己做的这个窗体功能是这样的
比较丑，纯粹是为了实现功能而做的，勿喷
如果大家想要接触的话，下方留言吧，我看看大家的需求是否足够多，多的话我再分享，因为窗体的功能还没有分享，现在说的话，大家可能还不太理解。
好了，明晚19：00，准时再见。
========历史相关文章==============================
Excel VBA工作薄 5.10只合并含有关键字的工作薄 数据汇总更精确
Excel VBA工作薄 5.11批量保护工作薄 我的数据不是你能改乱的
Excel VBA工作薄 5.12批量解除工作薄保护 绝不为难自己