查看: 3469|回复: 0

[软件应用] Excel表格用密码分配权限,原来可以这样设置!!

[复制链接]
发表于 2016-7-26 14:13:47 | 显示全部楼层 |阅读模式
有一个excel文件,包括有N个工作表

3 p7 c. e+ m  M9 P/ H
0?wx_fmt.jpeg

  O: n- b, F1 ]
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)

* l) \- u% S6 c( W0 _
0?wx_fmt.gif
: e6 p2 s0 A5 q4 }7 P6 y
' o, s) e0 C* Q2 K  c  b; |
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。
  a) p9 `4 a% F+ x  G0 C6 b$ i
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
) D( K, R- A! I1 }& |9 L
0?wx_fmt.jpeg 7 n% R# U, T1 U, @
% h6 h% P1 G. {( n" M1 J/ i: [) y
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

6 G/ f: ]: W5 y; V9 l$ V
0?wx_fmt.jpeg 1 @4 d; d2 k3 [: f

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

: B0 N; U8 N9 o  H: o
0?wx_fmt.gif
$ 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: u. `0 r. V- {, D( P
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then3 d1 e$ r5 b/ Y: n* d
  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) x5 G( P+ ^8 s3 W, F
  8.     End If
    2 Y4 _$ c* m, h/ o4 k$ @" c& {
  9.   End If% U4 w3 V6 G) S' S" T1 W' O$ ~" J
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)
9 f# B; U; H5 d. k8 S. ~
0?wx_fmt.jpeg
0 r& m6 b1 q$ I
设置完成!

, T. }4 h4 t0 M& i2 U2 C
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。
) v/ a% T) \6 ~0 m3 Q; i( z
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

小黑屋|手机版|Archiver|范氏宗亲网 ( 黑ICP备16002281号 )

GMT+8, 2021-1-18 11:42 , Processed in 0.133012 second(s), 24 queries . Powered by Discuz! X3.4 Licensed

快速回复 返回顶部 返回列表