查看: 1231|回复: 0

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

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

9 L3 ]' h5 K) I  P
0?wx_fmt.jpeg

$ r$ {1 h  p* G: j9 X+ `6 ?7 D
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
; {3 u8 z6 }* u
0?wx_fmt.gif 4 M5 f  _+ k$ ^+ l) q. W3 F; s2 |3 u
# K( k, u+ \/ T8 P0 z6 V
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

! s0 I( |& ~7 U5 X  M) Q) B
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。

2 n* ?. S& r" e$ p- ~
0?wx_fmt.jpeg
) c* \# |' S. s3 y) t7 y2 w

+ E# m' k4 v% j) f5 T3 }: z$ |+ X
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。
" T' r/ P0 y8 V
0?wx_fmt.jpeg
* s4 D+ f8 x, N! P6 Y' ~) @9 X  n
2 \# o3 n7 A/ d! T. @* b7 Z& G
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

, ?( s0 B1 t, |  ^8 G
0?wx_fmt.gif # _' o  E  n* D; ]

( y" z1 K- e7 c, q# @! \
VBA代码:

: z! H8 \! T0 H9 b' c' W
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    , i/ C9 q6 `- ~( i) p
  2. On Error Resume Next# g2 Q1 ?2 ?( Y& R' N. ?2 }. D# U
  3.   If Target.Column = 5 And Target.Row > 4 Then; e9 }0 V; Z( E* K" K
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then
    ( E% H: |- [) [2 D+ y* {
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
    1 k, Z/ k3 k3 }8 X9 R" e% }0 ]
  6.     Else
    ( w5 j9 }  {6 o: _  d
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2
    # l. {7 w' {: l" {. R) A4 c
  8.     End If
    . R$ p" t1 q. K
  9.   End If
    & x( u# \8 c5 A+ v/ l/ f$ r
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)
( O/ U6 Y# Q4 c5 }
0?wx_fmt.jpeg 2 k  B! q$ n& }9 w
设置完成!

! |% l4 h1 h9 `' d3 g
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

  s- }* j1 ?( j4 B# Z' K- R4 h8 l
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2018-9-23 16:12 , Processed in 0.128563 second(s), 29 queries , Gzip On. Powered by Discuz! X3.2 Licensed

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