前景提要

之前呢，我们学习了通过窗体的方式来实现针对单个工作簿的保护，我们可以通过窗体构造一个简单的登录界面

当其他的人想要使用我们预设的工作簿的时候，就需要输入对应的用户名和密码了，对于单个工作簿的保护，可以说是非常的强大，相较于之前学习的工作表的隐藏，锁定等，这个方法更加的直接，暴力。非常适用在公用电脑办公的小伙伴们。

但是很多的小伙伴并不满足这样的要求，课后有小伙伴们就表示，单个工作簿的保护似乎不完美，是否能够针对所有的工作簿进行一个保护，只要是打开这个电脑的Excel，那么就需要输入密码。

那么，无所不能的VBA自然是能够实现的。

不过，就稍微复杂一点。

场景说明

和上一节的场景相比，这一节我们增加了一个需求，那就是针对所有的工作簿都适用

那么是不是需要针对所有的Excel都去设置这样的登录窗体呢？

这个工作量会不会太大了呢？

其实不然

我们可以换种角度出发，类似网站门户一样，设置一个登录页面，只有输入了正确的用户名密码，才可与进入网站

那么我们今天就是这样的类似思路

代码区

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