Excel表格用密码分配权限，原来可以这样设置！！

范鑫

有一个excel文件，包括有N个工作表

3 p7 c. e+ m  M9 P/ H

  O: n- b, F1 ]

我们可以给这些工作表各自添加不同的密码，只有输入正确密码才可以查看。

动画演示：（注意E列输入密码后下面工作表标签的变化）

* l) \- u% S6 c( W0 _

: e6 p2 s0 A5 q4 }7 P6 y

是不是很高级、有用的样子！其实设置方法很简单，跟兰色一起做吧。

操作步骤：

  1、添加一个叫“主界面”的工作表，在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称，F列用来输入和验证密码。删除密码或密码输入错误，表格就会隐藏起来。

2、添加一个叫“设置”的工作表，表格样式和“主界面”完全一样，只是E列输入每个工作表的访问密码。

6 G/ f: ]: W5 y; V9 l$ V

# P0 e- U9 n& |- c. B

3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口，在窗口左上角单击“主界面”工作表名称，然后把下面的代码复制到右侧的空白处。

: B0 N; U8 N9 o  H: o

$ K' q2 g; h+ }8 ]( ]3 c

+ P/ F* ?+ ~, c' {! r

VBA代码：

0 w! I/ B# E; f0 B0 v) k" `

1. Private Sub Worksheet_Change(ByVal Target As Range)
   5 z# b3 b9 g+ e' m) R% X! S
2. On Error Resume Next
   . O, O) o* C$ K& d$ R# d, s! g
3.   If Target.Column = 5 And Target.Row > 4 Then
   
4.     If Sheets("设置").Range(Target.Address) = Target.Value Then
   
5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
   9 P/ T; e7 R& v2 i% h3 m
6.     Else
   4 W) R2 k& I  p- b# M. u6 l
7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2
   
8.     End If
   2 Y4 _$ c* m, h/ o4 k$ @" c& {
9.   End If
   
10. End Sub

复制代码

4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"（excel2003版 跳过此步）
9 f# B; U; H5 d. k8 S. ~

0 r& m6 b1 q$ I

设置完成！

, T. }4 h4 t0 M& i2 U2 C

注意：在关闭表格时，要把密码一个个的删除，以隐藏工作表，这样其他人打开表格只能通过输入密码来查看了。