查看: 1565|回复: 0

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

[复制链接]
发表于 2016-7-26 14:13:47 | 显示全部楼层 |阅读模式
有一个excel文件,包括有N个工作表
+ g7 @; ~3 Z3 d2 q4 i) `1 W, ]
0?wx_fmt.jpeg

) N# Y: m2 l; U' P; C0 t4 {
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)

+ r* G; p0 M- G: P) q3 J! G
0?wx_fmt.gif
' \( H4 N$ w! n
5 W, A3 |9 S, D2 ~5 ~+ A; Q  Q
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

3 k9 z4 @3 a; j
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
1 v7 g# m- m) g
0?wx_fmt.jpeg
7 k+ k4 ^  C5 b" s( S* i" J7 V1 B
* R9 c- A+ J# l& D1 M1 x. [
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

9 u3 R1 b4 y# k7 ~6 s
0?wx_fmt.jpeg ( `+ s8 z; Y( |( u! f. }
8 s- r! w8 ~# C/ M
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。
6 l! t8 s9 g) n6 T0 @
0?wx_fmt.gif 6 E  Z$ h5 v; N
8 d* ^0 }1 e2 R! j4 w. \
VBA代码:
! A4 x2 l: M9 |' X
  1. Private Sub Worksheet_Change(ByVal Target As Range)& B/ E9 ?. n8 a+ W4 I( ?
  2. On Error Resume Next$ [2 z3 _6 p3 a3 l8 y- @: Z" h" B
  3.   If Target.Column = 5 And Target.Row > 4 Then) d. W% M' k; Y6 E4 x9 N3 b2 H6 K
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then' C; ?5 M& B; |1 I9 d( _9 f" Z& B
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1$ D+ m+ `- F$ M- y/ o
  6.     Else
    # E5 Z) Y2 D  x# ^1 ^* q9 d5 ]& K
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2$ V! V' i0 T0 v/ G& W- R
  8.     End If
    " K7 ?' }  Z$ h' F, R0 }
  9.   End If
    : S8 u7 ]! u% j$ x+ Y
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)( L3 E* {5 |+ d7 Y
0?wx_fmt.jpeg   d2 }; K& \" G0 p: k
设置完成!
& G  D& c$ L2 A
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

  C0 e) G, ], j7 ?& S
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2019-12-6 10:48 , Processed in 0.101873 second(s), 24 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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