这样的工作表密码，你会做吗？

来源：微信公众号表妹的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吧！