查看: 1577|回复: 0

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

[复制链接]
发表于 2016-7-26 14:13:47 | 显示全部楼层 |阅读模式
有一个excel文件,包括有N个工作表
3 z$ P/ N3 J$ x# \
0?wx_fmt.jpeg
7 q4 M& d, _% x% Z
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
# [# H! L1 A3 ^% h. O: [- P" P4 @
0?wx_fmt.gif $ F- h- y+ f$ F6 v4 @% ~7 h

  `) k; c+ x) H$ x. r2 d& y' U2 X
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。
# }2 c9 Z! _7 G* Z: l
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
: K3 H+ c# H2 @; E% G& V3 i
0?wx_fmt.jpeg / z" j% E" U: a2 ^# J
# _6 ?; M; e7 N8 n! Z, T+ y" j/ _* E
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。
0 k. a4 b3 e- F: j2 g0 @, J
0?wx_fmt.jpeg   m2 J/ S3 B# ?+ k8 Q+ `

- o, K$ {- H9 h: ^% J5 B- J* u
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。
0 n3 f  m9 y: J. D& [4 }0 i
0?wx_fmt.gif
/ |+ k9 L5 S; ]4 a( j& A, K

6 r& C2 a3 p' I. X% X4 J
VBA代码:
, R2 |7 w) [1 {# s7 S1 D
  1. Private Sub Worksheet_Change(ByVal Target As Range), v) X6 O3 @7 {
  2. On Error Resume Next4 S. P( n7 T& ?1 C% |( J
  3.   If Target.Column = 5 And Target.Row > 4 Then
    9 @" }1 K& z2 }' P# Q8 g
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then
    " b. g1 t) y& `  O" s
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1& F8 f' i' U; D) c( x8 e
  6.     Else- V; u5 Z2 J0 h
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2
    : l, ^! J6 G2 x
  8.     End If8 H9 Z3 e+ H( Y8 J
  9.   End If. a+ t3 A0 H8 @) ?% [6 I
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)
4 x/ \) d7 x9 P
0?wx_fmt.jpeg 7 w3 Q4 Y9 q! I3 W
设置完成!

. J" d3 N+ Y: V5 ]
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

/ L+ Z( [1 u# p4 h7 f6 d& _2 y
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2019-12-16 08:02 , Processed in 0.099763 second(s), 24 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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