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

前景提要

之前两天我们分享了如何通过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。今天就分享到这里了，当然登陆窗体的功能还有很多，比方说小编现在自己做的这个窗体功能是这样的

比较丑，纯粹是为了实现功能而做的，勿喷

如果大家想要接触的话，下方留言吧，我看看大家的需求是否足够多，多的话我再分享，因为窗体的功能还没有分享，现在说的话，大家可能还不太理解。