查看: 1663|回复: 0

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

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

$ o4 X" T7 ~! Q( T. t) ?* F" M' h
0?wx_fmt.jpeg

+ q: p5 E8 [1 l, z% W. B5 w5 z
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)

' V# o8 I4 ]2 P1 \2 [1 ]+ ^
0?wx_fmt.gif ! D0 t4 {' L9 ~4 X( V
6 @; D/ m+ \. |0 m/ w" a+ s& d
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。
6 n* Z. x' X, p) _/ m* Y+ l1 F
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
/ b, h/ b/ g# _9 O* u
0?wx_fmt.jpeg 8 y8 E1 l& I- H

6 d' c" C* l$ U- ?1 W2 T+ p
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。
3 `) n# A% J' A" g
0?wx_fmt.jpeg - J3 ~' z* ~0 [% y+ s1 L" ^( O
5 L- N8 o2 d; R
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

5 r3 v# ^5 k, e
0?wx_fmt.gif ; U9 r/ x# {" O/ D1 H0 J. M

' {) x% i  u1 p, M6 Z  C& W! A! B
VBA代码:
4 n6 @# c+ _) P2 z1 M
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    4 r7 i) l+ h1 l
  2. On Error Resume Next
    ) V) D  L" g! A3 \+ f
  3.   If Target.Column = 5 And Target.Row > 4 Then5 g7 l0 e- E0 m+ P8 n9 H3 {1 p
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then
    3 B' W3 w# @: `
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
    3 W) m0 a1 t3 A% P
  6.     Else1 L% x5 y6 @9 `) P7 t
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2  R  I# W+ v7 \( [4 @
  8.     End If0 T: S$ Z! _( j" r: C7 }
  9.   End If1 ~2 U; [4 R! d+ U  x3 E4 _. ^( [
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)( T, E6 x7 E( ~# z& U" ]
0?wx_fmt.jpeg . k# _3 j2 v$ {8 f
设置完成!

  D3 w; Y+ |+ r+ X& L' z, F
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

9 g  h, M4 y9 r$ N8 c, q
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2020-2-21 17:12 , Processed in 0.104040 second(s), 24 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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