查看: 791|回复: 0

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

[复制链接]
发表于 2016-7-26 14:13:47 | 显示全部楼层 |阅读模式
有一个excel文件,包括有N个工作表
* s3 M8 e2 Q# c8 W8 {
0?wx_fmt.jpeg
- ~: i+ r2 y5 ?4 |
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
$ S5 u; b2 G$ U& q# y1 e4 q
0?wx_fmt.gif 1 I7 H7 m  ?, d: v7 ]
9 [7 @' Z4 u$ l9 q& K0 Q
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。
' {% z( w- P0 a/ n; f2 p1 ]
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
& ?7 `& K8 _! S' C) m2 f2 g
0?wx_fmt.jpeg 1 a% |8 J- _6 t2 P

0 h( i' N; b; [2 E3 C! T, j
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

3 j6 g8 F, H& h# @
0?wx_fmt.jpeg / l8 ^* x- u8 u: ]

/ y5 D& _9 g# o7 O: r
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

& ]6 O/ I8 C, a1 Z7 t# o
0?wx_fmt.gif
  k. \6 q1 }9 _3 Z7 W% [

! N& X6 m' s4 L1 O
VBA代码:

5 s( c, a2 {' g* e) g+ F
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    # ?! Y/ N6 Y9 ]! k8 }4 |
  2. On Error Resume Next
    9 Q& H' c# D" {6 {( h
  3.   If Target.Column = 5 And Target.Row > 4 Then
    $ s, G! i- S% p" L3 G4 W
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then; M: Z- y2 j$ P
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
    6 l+ `* U2 }- s
  6.     Else
    + B5 J' M! `# j$ M: b, Q* }
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 21 }- @& \2 }, X8 e, a
  8.     End If
    % A5 p4 A% H2 P" d. R& w
  9.   End If, _* @$ q. b  X! ]' g" L
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)3 }  A$ I4 f2 J) a9 T4 s
0?wx_fmt.jpeg
9 @5 b$ i4 j: X' p, K# @! I" o
设置完成!

* ^: W3 `+ [& e3 |# Q+ u0 d
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

# u" G+ o" a& K# @* b9 z7 D4 i
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2018-2-22 18:44 , Processed in 0.124040 second(s), 29 queries , Gzip On. Powered by Discuz! X3.2 Licensed

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