查看: 1424|回复: 0

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

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

' c, u6 X: R+ n: c$ a* m3 _+ |5 Z  d, P. b
0?wx_fmt.jpeg
; x7 M& q, b. [4 b) G" _
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
4 J" P* a, U* W8 l0 R; \8 a! s
0?wx_fmt.gif , ]- S; m  Y& m+ }) Z
! d/ l3 ~' W& Z  o2 |5 y
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。
! `3 H8 A" w! s
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。

. b6 Z/ S$ H3 l. B$ @) v
0?wx_fmt.jpeg " c0 s+ r" l' N# I# f
6 ?3 Z1 S! K6 C4 B' S
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

7 @; @9 c0 Y+ b% Q3 ]4 W
0?wx_fmt.jpeg 2 k( }4 Z. d& Z3 u9 b
  b. u  P8 d' Z" s
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。
! n7 Z' Y. C- J; D% n3 s
0?wx_fmt.gif 7 k$ ~5 l) ~) n

9 C( i* g$ @6 T/ G+ U8 v1 Q) X
VBA代码:
! l" v: N: ?* U/ R+ ?0 R
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    9 y3 E5 `5 n6 s# {* |5 P
  2. On Error Resume Next6 A. v8 E. c7 y; R3 F( Y  m
  3.   If Target.Column = 5 And Target.Row > 4 Then
    - Y2 U  i. l( z5 ?  |+ t
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then6 J  H7 x/ j# J. v0 h9 c
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
    * H0 S8 }6 \# o/ G3 ]* K7 B" b5 w6 C
  6.     Else
    1 a/ K$ D5 n- C2 V
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 28 i& b  Q1 E( D* B
  8.     End If1 a: o0 z0 R6 v) y. X0 e$ U
  9.   End If( h+ Z) S- G8 z5 A
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步). f$ e$ c7 ?' `9 j  M
0?wx_fmt.jpeg
2 f! z4 J& I6 r+ s% o
设置完成!

6 h/ [) k5 J; X
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。
2 G+ y0 b/ q* q( Z
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

小黑屋|手机版|Archiver|范氏宗亲网(范家人) ( 黑ICP备16002281号 )
邮箱:service_fan#126.com QQ群:① 42116087 ② 2451985 ③ 8913601 | 始创于西元2008年12月8日

GMT+8, 2019-10-19 15:02 , Processed in 0.079557 second(s), 24 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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