查看: 2024|回复: 0

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

[复制链接]
发表于 2016-7-26 14:13:47 | 显示全部楼层 |阅读模式
有一个excel文件,包括有N个工作表
4 s) ^* p  b$ g, I& H/ [5 L
0?wx_fmt.jpeg

, @8 U7 }: l- {4 e
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
- p5 g( g. v) ^* o7 h
0?wx_fmt.gif 4 K: c  J2 U. k! E3 G' ^; K' p0 _: R
) [& R9 k: ^% [: i& k
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

1 y1 T  i$ x; C$ }$ n. R4 Y0 t
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。

7 r. D  C4 u+ s7 s( v9 J
0?wx_fmt.jpeg 4 [4 q# ]) ]+ z

# `4 X! f/ X) t# ]8 j: \
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

! B/ s* B4 m' |- u: b  a
0?wx_fmt.jpeg
" R7 ], s/ R; n3 F

1 j$ R/ S4 c! b. h. L7 E
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

* |* ]. D6 Q+ n: W  Z
0?wx_fmt.gif % o6 |- i- I, x4 `8 {
6 g% l; ~5 Y+ f# c% R8 u$ X. z
VBA代码:
  \. M0 X9 f+ {% r5 g. U# {
  1. Private Sub Worksheet_Change(ByVal Target As Range)# M$ a4 `1 l3 L$ z0 f% w9 h( Q& T
  2. On Error Resume Next9 }( Q) i) e' X
  3.   If Target.Column = 5 And Target.Row > 4 Then& j' B( t9 h( u8 K' |  }: Y
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then
    6 t' F  r2 S) F( Q' X0 B9 S( p
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
    ! q: F/ y) x8 {2 ?  z7 x
  6.     Else
    1 P* G& t3 g& t. A' S
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2
    $ x, T: V4 L) B5 T
  8.     End If$ A9 N: c2 s8 [2 @  I2 T
  9.   End If
    ) m- Q" t* a2 G: |' f6 q  M
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)' p7 W3 e8 X0 V. }1 @- h- |
0?wx_fmt.jpeg : Q. O% i, G# G! d0 d
设置完成!
+ j; h# s1 S0 m, a
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

' O9 N0 X$ N$ [% g
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2020-4-8 16:25 , Processed in 0.158601 second(s), 24 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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