查看: 926|回复: 0

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

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

: R1 [4 e" m3 |5 V( _3 D4 I5 v+ B
0?wx_fmt.jpeg
- ?7 g8 |# X; r! ?1 g  y1 e
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
% I& T0 {; k$ }: q2 l9 m
0?wx_fmt.gif 7 \' t+ B$ g# @0 _" d$ d
9 A! _) O. Z$ }3 |5 }" {4 t
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

% d' E# T* l  r8 n! P
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
8 K9 }- k9 s' [0 w7 P( x; ]
0?wx_fmt.jpeg ) u8 H7 Z$ S9 X+ D4 G

$ ^( K# l: V9 G
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。
6 c$ p6 [" f) i
0?wx_fmt.jpeg
$ O% a0 v9 v9 Z+ a: Z

6 Q' W' Z, ~  ?( w
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

1 K- o; h! G# b( ^4 o" f
0?wx_fmt.gif , n# g# N0 J; l: A$ g5 L) @! Q
8 |6 n: [# u3 F+ P. W4 U( j, P# @. F
VBA代码:
7 `6 C* u' N+ S6 u" X/ t
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    # f: ]& ^) p: {. Y
  2. On Error Resume Next
    : _. ^1 D# W4 Z* x9 B2 U
  3.   If Target.Column = 5 And Target.Row > 4 Then% g4 k! y4 s: E+ v( Q' Q
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then
    , W9 j7 N; y1 r# N
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
    9 y/ m0 W0 \! V6 @* B
  6.     Else
    , H0 k; G, @+ ^. e/ p3 Y
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2
    4 {, t; S7 x' h; h1 I" |- d. ~5 C
  8.     End If
    ! Z% Z" q% W4 g5 k  i$ A8 q1 g
  9.   End If
    1 {$ b1 g; q$ T
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)& V$ n) T, z" r+ y
0?wx_fmt.jpeg 4 P( T, d7 q- ~: _0 y
设置完成!
, t7 @6 a5 d' S& M, o
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

0 o$ P- ?; J, X, U9 D& ?
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2018-6-18 06:18 , Processed in 0.117902 second(s), 31 queries , Gzip On. Powered by Discuz! X3.2 Licensed

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