查看: 670|回复: 0

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

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

) z: ^- l9 R: A
0?wx_fmt.jpeg

* q' u4 e7 g& a* J/ J
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)

7 N. ?0 U; \; J7 d
0?wx_fmt.gif
: T% q" n3 B6 u

7 `, X; A% H" W" n9 `# C
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

3 x' |, ]2 |; f' B0 Y
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。

* [* I& s' Y- v" D  p$ d8 }
0?wx_fmt.jpeg : `& R& a' p: T5 M5 @, j/ I$ A0 f
4 z/ l& I% E) n, h: Z* [2 r, W
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。
7 ~$ t( A2 T) y- V5 M$ i9 N5 @
0?wx_fmt.jpeg
( ~# Q5 g0 T2 C9 d) ~

% ^) D& [- V6 C. x4 M: O. [% [# X
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。
2 l& |( s6 C# H
0?wx_fmt.gif ! T$ S, E- k% C' o6 W
" t# {, y1 q3 T* z3 C: Z
VBA代码:

& D3 B) e# O7 _  n7 H: }0 P
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    ! _3 Y2 W" a! I' n3 r! V7 y8 n7 l  l
  2. On Error Resume Next% N7 ]) a; G/ N5 D2 }9 U
  3.   If Target.Column = 5 And Target.Row > 4 Then9 f$ ?! d/ y4 w4 d( [/ ~
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then. v7 @; N9 L4 U
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1$ b2 b* J% M5 `0 H3 N) E- y8 N0 n* e
  6.     Else1 @/ f% T9 e, v9 _% f  ^" H3 k
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2
    6 \) d, H1 L- B. U5 R
  8.     End If3 o5 v3 T0 T% K/ F
  9.   End If  ~4 j  m) L$ d( ~
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)
: I% V+ ~, @* I4 G5 Y1 f7 g3 t
0?wx_fmt.jpeg
' f3 a# M9 Q9 P" I6 \( e6 r
设置完成!

. q* b8 a/ z) r/ t& j
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

/ ?( ]+ E9 E/ y7 V5 C9 T
欢迎访问范氏宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

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

GMT+8, 2017-12-13 07:35 , Processed in 0.110471 second(s), 31 queries , Gzip On. Powered by Discuz! X3.2 Licensed

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