查看: 1159|回复: 0

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

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

, h8 F5 p2 [( t4 A
0?wx_fmt.jpeg
) y7 p+ Z. v+ \$ R! T2 a  r9 {& |
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)

: y9 x5 `8 |; M! p# y
0?wx_fmt.gif
7 ?" U9 q$ K) W- j3 G% d' L, b
. @. A- {* m0 G  u4 K
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

' b+ _3 ^) w% j3 t8 e/ P5 W
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。
8 u: R) z; Y  H* e
0?wx_fmt.jpeg 9 q1 Q% I: ~* `& X
. T# F+ ]" X. B$ M' |( |" e; d
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。
( Y, [* ~6 K$ z0 X+ t
0?wx_fmt.jpeg
6 k! W. N9 \9 M8 G4 ?- y! ?

5 c. J9 x, t; {; J: ]3 j, Y9 o
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。

4 r& ~3 [* s0 ?( s* ]1 {
0?wx_fmt.gif 9 D7 H! Q' R- Z) s  i8 n1 p- }* m$ d
/ ?4 v0 v: G5 ?$ K: a" b
VBA代码:
- A% h- r1 W3 N( [; c- j
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    8 O3 [  [5 f& b$ R6 h8 @$ `
  2. On Error Resume Next( p, u5 V7 Q) k5 {( I
  3.   If Target.Column = 5 And Target.Row > 4 Then
    " ~) @. }5 G3 {
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then
    7 t2 K* d  n5 _: `* F2 C! B! g
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1
    9 a7 P% b( ]( \# g3 A; C" r
  6.     Else) {8 G6 R; B; q3 g  O
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2
    5 l8 f3 i/ F$ h' e( [: e
  8.     End If
    2 @( \/ H2 q# l
  9.   End If
    6 f- L1 v, P. v2 n+ D& b
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)
' G/ m0 u0 j4 X8 R
0?wx_fmt.jpeg * K6 A: Y' R- X2 e( F
设置完成!

/ |* ^; d- d) g) q. \% o
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

1 G. i$ n+ z- c1 Z" S  R
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2019-5-25 21:11 , Processed in 0.095264 second(s), 24 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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