查看: 1328|回复: 0
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1
发表于 2016-7-26 14:13:47 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
有一个excel文件,包括有N个工作表

/ G$ H3 Z2 y+ ?5 p: L* a/ v- A# r4 Z

. D' f& u) G( }( u) T
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
5 A! {" S$ l0 i& r
. D/ k??R& r6 N??f+ y3 c% y$ U0 G% D

8 H0 n, a( }+ p9 h" W??E
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。
7 g, o1 E??U. W
操作步骤:
??1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
' _8 ~! t0 E" |: k' g

??n5 d; B) Y" K- c, e. b- ]# z. T
; w. V6 b( E# F) c* Z5 w& Y5 U& c7 |
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

! t: \3 D) ~/ D3 G* g3 j9 X
( u. T$ H5 a+ A6 Z/ R; n

0 w' X4 X$ P' M# x' |* k
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

" \, Y3 r, Q5 B9 s2 h

$ w% e1 R. C$ F- k4 D! ]??|% Q+ h

/ o" d$ @??U5 N% Q: s% e3 E1 U
VBA代码:
" |+ _3 j. h. q: ~2 \% j7 W
  1. Private Sub Worksheet_Change(ByVal Target As Range)( I7 l1 b0 b$ y
  2. On Error Resume Next
    ??O# G& B9 v& J( y0 f
  3. ??If Target.Column = 5 And Target.Row > 4 Then2 W( ~+ c) h) A# ]9 u
  4. ? ? If Sheets("设置").Range(Target.Address) = Target.Value Then
    0 A* M: }' g0 C9 u
  5. ? ?? ? Sheets(Cells(Target.Row, 4).Value).Visible = -1
    ; q% B' k' {% K
  6. ? ? Else. O9 R; Y0 d9 o8 W0 D$ l??}
  7. ? ?? ? Sheets(Cells(Target.Row, 4).Value).Visible = 2
    $ z4 F; E7 i/ w/ e; ?
  8. ? ? End If
    : Y' t+ L( ~& @1 c
  9. ??End If; l2 ?8 F. Z- g4 x
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)
$ y0 p7 B/ x! b5 r' w
& d- V. Y; A$ ^% C0 s# P( e, c( }
设置完成!

& y- u0 @1 w/ K
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

) m! f; z5 P% b# E3 [4 z
欢迎访问亚博手机app宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2019-9-22 09:03 , Processed in 0.099076 second(s), 23 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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