查看: 2987|回复: 0

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

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

" @' T( `- ^( p1 r: ]0 S
0?wx_fmt.jpeg
3 Y* j" a( X# d( o% K& W0 K3 X1 E% C
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
: p4 e( j, F) x& n
0?wx_fmt.gif 4 `' Q3 G$ W, B( F" B& o. a
0 O) `9 ~% v1 g5 p! C' C
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

$ |  |# W" D* f' s
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
* X5 |" W8 a1 ^3 H3 v
0?wx_fmt.jpeg 7 T5 Q# y# q' {% ^$ J7 S! m
& e6 q! Y0 M: o' C/ ?* T, b: h
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。
) s$ K$ p3 }+ z. r9 n* a
0?wx_fmt.jpeg % ~9 x" e- e9 F' {" [
5 ~' M3 p1 ^; r& l: Z8 G) f
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

2 K5 n0 Y1 ?! D5 W. \* ~6 v# p
0?wx_fmt.gif
0 L' m. _+ h) I4 T3 Y- [
; r, ^( v+ z4 x& l
VBA代码:
& A1 h1 z4 O) \: j
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    , o% N  T, F7 i. j/ q
  2. On Error Resume Next- k' \  C' N) |3 K! Q* ?
  3.   If Target.Column = 5 And Target.Row > 4 Then$ ?4 L! d( C! {: t
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then
    4 O* d0 v1 J9 B! f6 m9 p
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -15 C, x0 y+ l& {
  6.     Else
    $ z8 d4 f' u9 w; P
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2/ |: ]! f5 G  F' \/ i  t; e# M
  8.     End If
    ) R/ @& E5 `1 H) G' O
  9.   End If* [0 p- ~% J' s7 R% ]0 V! q% T
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)
/ B8 p( f/ x8 e5 T' j6 l! T3 V
0?wx_fmt.jpeg
4 G1 m9 C, M5 l8 O" C" J
设置完成!

9 w' U2 j' K' C+ c
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

/ W- n$ e: j* l0 p3 R+ Z
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2020-9-21 04:40 , Processed in 0.151572 second(s), 24 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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