来源：微信公众号表妹的EXCEL
关于给工作表/工作薄设置密码，表妹之前已经分享过几篇推送了（推送11、推送73），不过今天表妹要介绍的这种新方法，相信绝大多数小伙伴一定没见过。什么？你不信？那就请随表妹一起往下阅读吧~~
~~~~~~设置密码的分割线~~~~~~
问题描述
-------------------------------------
最终效果
-------------------------------------
制作方法
【1】添加“主页”和“密码页”，两者格式相同，密码页中为各Sheet页设置密码；
-------------------------------------
【2】选择“主页”，打开VBA编码窗口，输入如下代码：
代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column =2And Target.Row >1Then
If Sheets("密码页").Range(Target.Address) = Target.Value Then
Sheets(Cells(Target.Row,1).Value).Visible = -1
Else
Sheets(Cells(Target.Row,1).Value).Visible = 2
End If
End If
End Sub
代码替换参数解释:
Target.Column =2：“主页”中，密码输入位置为B列，即第2列；
Target.Row >1：“主页”中，密码输入起始位置为第2行，即第1行以后；
Cells(Target.Row,1)：“主页”中，Sheet页名称列位于A列，即第1列。
-------------------------------------
【3】保存工作薄为启用宏的工作薄；
-------------------------------------
【4】在“主页”中，各Sheet页密码处按Delete键删除，保存后，大功告成！
-------------------------------------
怎么样，学会了这个新技能，自信心是不是瞬间就爆棚了呢？勤奋好学的小伙伴，赶快自己动手试试，向身边的同事尽情炫耀吧！
如果你觉得表妹的分享内容很实用，欢迎分享给其他小伙伴呦，独乐乐不如众乐乐嘛！
关注微信公众号“表妹的EXCEL”，每周一、三、五获取原创分享教程。加入“表妹的EXCELQQ群（345387282）”，和勤奋好学的小伙伴们一起快乐地学习EXCEL吧！
