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

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

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

0 z+ j# x1 y7 A8 \) B
! l/ Y& G??G# t2 H, {% J* Q
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)
, E# `2 r+ R3 a* d

/ ^+ S2 Q' t# R! v0 P5 M1 P

/ `7 E# x) u: L??@
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。
9 Z0 {5 X, S2 Y5 ]. e7 P
操作步骤:
??1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。

1 D2 H( y# b9 `/ O" c5 ?

, y/ o" `, }! ?% ?: U
% J2 @% F! W, q- B" F7 l
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

! U% A" j8 X( v( S; }4 M# |
9 y??z- z) L, p0 S) O& [& {" r

! G- Z5 T& I1 ~, h, U& ?5 q, W
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。
+ s& A7 X" Q' ]% {7 ~& n/ a

- g1 ^3 ?/ y; B2 B5 F8 [& B

9 \/ n6 B8 b+ x6 i5 K- s
VBA代码:

- m7 Q8 m/ N* t% V0 _1 Y$ `
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    + m$ N3 \- r. z7 F/ [
  2. On Error Resume Next/ c8 N( _; r* Q% \
  3. ??If Target.Column = 5 And Target.Row > 4 Then
    ' `3 X* }* R1 W3 q' w
  4. ? ? If Sheets("设置").Range(Target.Address) = Target.Value Then2 i# S' v$ |# G/ p2 X1 O
  5. ? ?? ? Sheets(Cells(Target.Row, 4).Value).Visible = -1
    4 X+ [3 j* n) e. P. o
  6. ? ? Else& f1 Z3 ^- i8 M/ e! q; d1 f" n
  7. ? ?? ? Sheets(Cells(Target.Row, 4).Value).Visible = 2
    # e# k1 S# S1 S5 |0 U
  8. ? ? End If) h/ n8 ^# C2 C$ c# q3 ?9 g
  9. ??End If) Q0 G% X" m/ ]" o& C
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)
; r$ X- m! \, A- A
3 U??R# g2 z) b, E# C. y7 J7 ]
设置完成!

) R" V) x, ]0 P+ |. i$ F, p
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。
. d% B. ^+ a: H??W
欢迎访问365体育投注app下载_体育彩票365能提现吗_365体育打不开了宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

小黑屋|手机版|Archiver|365体育投注app下载_体育彩票365能提现吗_365体育打不开了宗亲网(范家人) ( 黑ICP备16002281号 )
邮箱:service_fan#126.com QQ群:① 42116087 ② 2451985 ③ 8913601 | 始创于西元2008年12月8日

GMT+8, 2019-10-17 16:25 , Processed in 0.087074 second(s), 23 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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