查看: 4231|回复: 0

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

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

5 \, ]3 ]8 n! U+ d) U  v
0?wx_fmt.jpeg
' D& }; `7 g- s) w# K  \
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
; a$ }& D, H  h$ L8 G3 d
0?wx_fmt.gif * J$ w: z! W& S- N

4 q9 g! o0 d3 v- `+ y4 f% b
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。
0 i' d' H6 [9 r, A" e, S
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
0 K9 g, H  I! F' d+ J. A9 ]
0?wx_fmt.jpeg , @; W( Q! k  v4 ]$ w; r- d1 g

1 E: n% G/ u; l
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

$ K% U3 s0 i* a' q
0?wx_fmt.jpeg # ]* d' U) r' q) \: t  z/ u7 W4 b& a) W2 h
. J" o* [4 u) R! h0 q& {- |6 b" O& j
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

$ x- @+ M9 J6 M
0?wx_fmt.gif
( B8 H  f; B* C
- e. ]; x" E2 D0 c" J; {2 B
VBA代码:
" T+ a$ @0 w' G1 b/ H8 l& q
  1. Private Sub Worksheet_Change(ByVal Target As Range)  H- n8 i6 \( c
  2. On Error Resume Next" ]6 M7 Y2 D1 G3 e0 u& N/ G. ?
  3.   If Target.Column = 5 And Target.Row > 4 Then1 K/ D, a  J9 y0 Z
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then
    / a: ^: \3 `) J& Y% Z: }$ X& Q
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
    % |( ?/ @; ~; g1 @% D& T
  6.     Else
    ! N9 T3 r, n) Z7 j4 M. g
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 22 ?" b3 B7 i; M  y  u6 P$ B8 M
  8.     End If
    ( v+ P. x1 e) ^& [" }
  9.   End If  ^7 W5 K$ h; Q0 v6 g
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)
2 Q) k. S: |4 J8 o
0?wx_fmt.jpeg
, U4 C. h6 v) @# V/ M
设置完成!
4 q8 }+ _9 U% l2 x9 k
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。
8 W% q4 B6 l- z- @
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2021-5-8 15:27 , Processed in 0.157556 second(s), 24 queries . Powered by Discuz! X3.4 Licensed

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