查看: 1615|回复: 0

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

[复制链接]
发表于 2016-7-26 14:13:47 | 显示全部楼层 |阅读模式
有一个excel文件,包括有N个工作表
" P& D( N$ y# ]# z2 W- Z
0?wx_fmt.jpeg
$ Y( ?5 A7 v$ q
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)

2 [. ^" S& m' G) Q, z
0?wx_fmt.gif & }2 L  z) J" ]4 M% \

/ u1 a4 S$ ]1 b  p( M. Z
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

+ u" D; r3 y9 o! [# x) O. s2 @# Q
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。

' t8 ?, m  e0 [& K  [
0?wx_fmt.jpeg 9 r" M' l8 p8 \$ \

( j, p" Q. u* y# F4 t
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

9 K( y0 b7 d  {: O7 H$ \
0?wx_fmt.jpeg
8 U4 I2 Q  c* e

5 U) v+ l0 F; Q
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

. x5 ?8 M! h- [. W  Y  W, t( Z. K
0?wx_fmt.gif
6 u( u3 ?; n, G, X: }' g

( N6 P3 I* [- c1 t: r5 {. B
VBA代码:

" P( }% t/ u+ h. T/ k$ V3 b6 f
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    2 K- z9 w9 ?: u  i5 R% F6 k
  2. On Error Resume Next
    ! S" _6 g/ o; |2 R0 U6 ^- M/ A( M
  3.   If Target.Column = 5 And Target.Row > 4 Then2 R1 t1 S8 e1 ^0 r1 M
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then5 G* R$ d7 d2 D  X5 h+ e4 P" O8 F
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
    7 U  L) G  E; [1 t* I- l
  6.     Else
    & \& q( T1 w8 @
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2& {- J7 C$ B- K# Q% T1 `' |
  8.     End If0 X9 q2 N9 D0 }9 J: N
  9.   End If7 Y0 S& {+ Z" e0 i
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)! X" U$ M8 Z' j% E) }2 g8 E
0?wx_fmt.jpeg 2 M& ?' Z* z- {* S. J/ E
设置完成!
: P: p' i/ t! r( P
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。
/ i$ z' ?/ A2 P) E: k* ^
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2020-1-26 23:11 , Processed in 0.093176 second(s), 24 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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