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

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

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

; B3 f- Q( ~/ o, q3 {5 s

9 \0 Y( p4 O! t7 Z$ E) b5 y
我们可以给这些工作表各自添加不同的密码,只有输入正确密码才可以查看。
动画演示:(注意E列输入密码后下面工作表标签的变化)

) M$ l+ f- Z$ W# \+ t2 }8 v

9 k$ S7 U, {0 Y- d
; ~  j3 N2 N. y# S
是不是很高级、有用的样子!其实设置方法很简单,跟兰色一起做吧。

/ B; F/ k# }! A9 j9 J8 d" O
操作步骤:
  1、添加一个叫“主界面”的工作表,在E和F列从第4行起设置一个访问权限界面。E列是你的excel文件中要设置访问密码的工作表的名称,F列用来输入和验证密码。删除密码或密码输入错误,表格就会隐藏起来。

' c  `% ~3 B0 r( }+ T
8 D1 E) U+ ?& r4 ^! T2 K9 X9 R

4 f: Z! B6 f+ ]) l, H% Y  i1 n9 {
2、添加一个叫“设置”的工作表,表格样式和“主界面”完全一样,只是E列输入每个工作表的访问密码。

7 ]: W' H- N' B
- k" h) H7 T; O
- ?( \6 x& c' r% h! t
3、在工作表标签上右键 - 查看代码 - 打开一个叫visible basic...的窗口,在窗口左上角单击“主界面”工作表名称,然后把下面的代码复制到右侧的空白处。
" d0 a! E0 c/ B% L

6 Q' {7 e; u$ V% p3 d5 \  @
/ n% o, j+ T$ [2 a
VBA代码:

0 a: m( @/ l2 t0 {+ m, |
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    4 G: [, z# D' I
  2. On Error Resume Next
    ) g  ^+ Z# t2 s# T
  3.   If Target.Column = 5 And Target.Row > 4 Then6 L( @$ e6 V. L: ]' |- Q
  4.     If Sheets("设置").Range(Target.Address) = Target.Value Then
    * p1 {- Z# A+ I/ ]& G
  5.        Sheets(Cells(Target.Row, 4).Value).Visible = -1  S# o: i2 g# l4 O; V  `
  6.     Else
    * T6 {' |+ U6 c$ v
  7.        Sheets(Cells(Target.Row, 4).Value).Visible = 2" `6 ?$ t3 u3 d4 o9 t
  8.     End If
    8 T/ ~3 O6 f2 ^# I! q, Y
  9.   End If- l4 F! _8 ^, k" U
  10. End Sub
复制代码
4、文件 - 另存为 - 保存类型选择为“Excel 启用宏的工作簿"(excel2003版 跳过此步)! n3 r; ]# F0 D) w
  V' Q/ D% n! {' z$ o+ z
设置完成!
+ ?& E. U) ~$ u$ y& {- V. x9 D
注意:在关闭表格时,要把密码一个个的删除,以隐藏工作表,这样其他人打开表格只能通过输入密码来查看了。

+ K; c3 b+ P; q- Q
欢迎访问yabo88狗亚体育app下载地址宗亲网!请牢记我们的主网址:【www.fanwuzi.com】,备用网址:【www.fanjiaren.org】。
您需要登录后才可以回帖 登录 | 停止注册

本版积分规则

小黑屋|手机版|Archiver|yabo88狗亚体育app下载地址宗亲网 ( 黑ICP备16002281号 )

GMT+8, 2019-11-28 08:47 , Processed in 0.105903 second(s), 23 queries , Gzip On. Powered by Discuz! X3.4 Licensed

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