背景：虽然Excel是自带密码功能的，但是设置了密码以后，打开excel，是看不到excel的内容的。

 如果想让使用者打开excel，能大概看到excel的内容 ，但是会有弹窗，导致没法选择和更改数据，就可以用代码来完成如下的效果。

---

将下列代码写入到Thisworkbook中，然后在和workbook_open联合起来，就可以实现打开excel，代码自动实行的效果。

---

Private Sub Workbook_Open()Do
ps = InputBox("Please Input Your MotherID")
Select Case ps
Case Is = "123"Exit Sub
Case Is = "abc"Exit Sub
End Select
LoopEnd Sub

先用inputbox读取用户输入的数据，存放在变量ps里面，然后用select case来进行判定，如果不符合预置的数，就一直loop着inputbox循环，实现了密码保护。

以上 就可以了。

拓展

也可以把代码放在其他计算的代码里面，当密码正确后，进行下一步的计算.

如果错误则弹出，达到一个保护的作用。

也可以把代码放在其他计算的代码里面，当密码正确后，进行下一步的计算.

如果错误则弹出，达到一个保护的作用。

也可以把代码放在其他计算的代码里面，当密码正确后，进行下一步的计算.

如果错误则弹出，达到一个保护的作用。