查看: 1251|回复: 0

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

[复制链接]
发表于 2016-7-26 14:13:47 | 显示全部楼层 |阅读模式
有一个excel文件,包括有N个工作表
5 |2 K5 G# k- `0 E3 d
0?wx_fmt.jpeg
. G0 e# N3 O' X
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
6 N0 S$ M$ f9 ^7 ?5 s" A
0?wx_fmt.gif
( z8 g; s' I8 ?! e( k% D: M& |# D
: j+ b9 t. W+ I0 I
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

( r. ^! \/ m* Q5 _
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
: u. f" O) `' r2 f* S: B
0?wx_fmt.jpeg
1 Z: }6 c' J8 F4 _1 Q
' Y5 k' @6 R0 {* r6 Q) h
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

8 H, y5 X3 S* Q) n( ]4 E) v
0?wx_fmt.jpeg
' Y, k) G8 l0 [- x* d6 U0 b* l0 Y
4 r  b( }! M. N# m- F. q+ _) n
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。
! u6 W) W5 }: p: n6 c
0?wx_fmt.gif 2 f2 ~1 c, B# A# q% S+ j
, Q  M! A" z4 v
VBA代码:

* A- \$ U) Y& g2 z8 E# T  {1 g7 B
  1. Private Sub Worksheet_Change(ByVal Target As Range)) K- l1 o' U4 w8 \* q6 d% b( e
  2. On Error Resume Next
    , |: p2 z. T: f% u
  3.   If Target.Column = 5 And Target.Row > 4 Then( ]: ~2 S/ ?% z( P) V5 h
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then  W. C, ?4 X, v
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
    ( X1 r) \* C- C8 t7 n7 M6 @
  6.     Else, |+ K4 h$ X' x# j! y
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2
    9 w' e/ v. e: I5 f# I! a' L9 Y
  8.     End If9 X5 \  m+ F# Y; P0 n3 j0 h! ?
  9.   End If/ X' U6 q' L7 z
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)
1 [+ v, T' S5 C- ^* q
0?wx_fmt.jpeg ) i( d1 p$ c: i5 C  O1 c
设置完成!
4 i6 l0 _, T; W9 Y1 ^* l
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。
3 p8 x1 y% u2 d4 v, H- I0 _
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2019-7-21 01:51 , Processed in 0.106320 second(s), 24 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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