查看: 588|回复: 0

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

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

) w1 ]6 F: S1 s/ h6 g1 U% b
0?wx_fmt.jpeg

- b! p, N- l4 o* m5 G9 u& R
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)

  M1 K8 }8 Y1 }3 B  P0 ~5 X: }
0?wx_fmt.gif 0 ^: v6 o7 |& v* H' |! Q1 K

6 J* A. L# _# f! p+ c0 o
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

, S( u" }6 m& A+ j& Z* `
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
. F+ C8 F+ p- k" ~
0?wx_fmt.jpeg
& _- \3 ?: X' P& V: P

8 T$ ^9 W1 K& |: E$ k7 l
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。
! v  w% ^( N# t1 w  B
0?wx_fmt.jpeg
4 [) p# h- [# t3 {
5 l% J+ |( E2 J; B5 X5 J
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

; J1 f% B) M6 {: Q* b  }" Y1 l6 f
0?wx_fmt.gif - v, Q7 @- u" r  v* F0 _
( {0 |( T! C6 m0 `0 L' X" m
VBA代码:

  m# ]5 h# B+ v: ~9 {5 L8 f' V+ o
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    ( C+ f) y1 O" I7 ~5 [6 V! j
  2. On Error Resume Next
    ! z. r5 f, n( M# b6 C1 D
  3.   If Target.Column = 5 And Target.Row > 4 Then! O" |* {& m) u3 z. J
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then; b" Z) q& N" O5 B" [$ w
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -15 U$ b5 _' G; D: u, z
  6.     Else+ n" N; t2 J+ j
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 28 D$ s: }( }6 `1 h' U
  8.     End If
    + y3 ]+ k+ o$ ?+ l  U2 ~: I
  9.   End If
    7 W  Q" W8 A% D4 J5 w! i$ ~6 {3 w, A
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)7 C; q8 R0 o; h# X6 z/ w. ?& `" D
0?wx_fmt.jpeg
$ i( o/ J6 o$ r. F" f4 x& F% g1 l) e
设置完成!
2 F7 G$ b, I, ~* v3 q& y
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

+ |2 H8 O6 J; J1 Q
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2017-10-20 05:43 , Processed in 0.142880 second(s), 29 queries , Gzip On. Powered by Discuz! X3.2 Licensed

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