Excel工作表的保护大法
时间:2005-11-24 | 作者:中国电脑教育报 | 阅读:321
Excel表格是我们工作中经常用到的,而它往往涉及统计数据等敏感问题,因此,Excel表格的保护也是经常遇到的问题,如何安全使用Excel呢?我们常用到的是Excel“工具”菜单提供的“保护工作表”和“保护工作簿”功能。有没有其他方法呢?
用宏进行“显式”加密
在需要加密的Excel 表中,点击[工具]→[宏]→[Visual Basic编辑器],打开“工程资源管理器”,双击该工作表,在右边的是设置该表属性的编辑窗口,单击该窗口左上方的下拉列表框,选择Worksheet,再从该窗口右上方的列表框中选择Activate(激活)(如图)。
添加如下代码:(假设“123”为密码,Sheet1为限制权限表格,Sheet2为工作簿中为任何适合的工作表)
Private Sub Worksheet_Activate()
Sheets("sheet1").Cells.Font.ColorIndex = 2 '设置文字颜色为白色
If Application.InputBox("请输入密码:") = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56' 设置文字颜色为黑色
Else
MsgBox "密码错误,即将退出!"
Sheets("sheet2").Select
End If
End Sub
每次当你选择该“加密”表的时候都会弹出对话框要求输入密码,正确则进入该表(Sheet1),否则会选择其他表(Sheet2)。
用宏进行“隐式”加密 “显式”加密,虽然可以让没有密码的使用者无法看到“加密”表格,但是每次选择该表格时都会弹出对话框,实在不方便而且给其他用户一种被防范的不舒服感觉。于是笔者就想出了下面的“隐式”加密方法。假如要加密的是Sheet1,我们可以设置在Sheet2的“A1”单元格为密码的输入处。于是修改以上代码如下:
Private Sub Worksheet_Activate()
Sheets("sheet1").Cells.Font.ColorIndex = 2'设置文字颜色为白色
If Sheets("sheet2").Cells(1, 1) = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56' 设置文字颜色为黑色
End If
End Sub
设置好以后,只有Sheet2的(A1)单元格为密码“123”时“加密”表Sheet1的内容才显示出来,否则就是透明的,神不知鬼不觉;所谓“隐式”。
“隐式”加密虽然保证了没有密码的用户不能查看“加密”表格的内容,但是不能保护其他用户对其进行修改。所以我们要综合运用上面所说的“保护表格”和“隐式加密”对要保密的表格进行设置。
上面是笔者在实践中综合出来的加密经验,希望能给大家带来方便,也恭候大家的指点交流。
用宏进行“显式”加密
在需要加密的Excel 表中,点击[工具]→[宏]→[Visual Basic编辑器],打开“工程资源管理器”,双击该工作表,在右边的是设置该表属性的编辑窗口,单击该窗口左上方的下拉列表框,选择Worksheet,再从该窗口右上方的列表框中选择Activate(激活)(如图)。
添加如下代码:(假设“123”为密码,Sheet1为限制权限表格,Sheet2为工作簿中为任何适合的工作表)
Private Sub Worksheet_Activate()
Sheets("sheet1").Cells.Font.ColorIndex = 2 '设置文字颜色为白色
If Application.InputBox("请输入密码:") = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56' 设置文字颜色为黑色
Else
MsgBox "密码错误,即将退出!"
Sheets("sheet2").Select
End If
End Sub
每次当你选择该“加密”表的时候都会弹出对话框要求输入密码,正确则进入该表(Sheet1),否则会选择其他表(Sheet2)。
用宏进行“隐式”加密 “显式”加密,虽然可以让没有密码的使用者无法看到“加密”表格,但是每次选择该表格时都会弹出对话框,实在不方便而且给其他用户一种被防范的不舒服感觉。于是笔者就想出了下面的“隐式”加密方法。假如要加密的是Sheet1,我们可以设置在Sheet2的“A1”单元格为密码的输入处。于是修改以上代码如下:
Private Sub Worksheet_Activate()
Sheets("sheet1").Cells.Font.ColorIndex = 2'设置文字颜色为白色
If Sheets("sheet2").Cells(1, 1) = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56' 设置文字颜色为黑色
End If
End Sub
设置好以后,只有Sheet2的(A1)单元格为密码“123”时“加密”表Sheet1的内容才显示出来,否则就是透明的,神不知鬼不觉;所谓“隐式”。
“隐式”加密虽然保证了没有密码的用户不能查看“加密”表格的内容,但是不能保护其他用户对其进行修改。所以我们要综合运用上面所说的“保护表格”和“隐式加密”对要保密的表格进行设置。
上面是笔者在实践中综合出来的加密经验,希望能给大家带来方便,也恭候大家的指点交流。
福利游戏
相关文章
更多-
- excel格式刷怎么快速刷全部
- 时间:2024-02-02
-
- 合并单元格后怎么拆分单元格
- 时间:2024-02-02
-
- excel打开很慢容易卡是怎么回事
- 时间:2024-02-01
-
- excel函数不显示结果只显示公式解决方法
- 时间:2024-01-30
-
- excel下拉选择项设置教程
- 时间:2024-01-30
-
- excel超链接怎么弄
- 时间:2024-01-30
-
- excel怎么算百分比详情
- 时间:2024-01-30
-
- excel下拉填充设置教程
- 时间:2024-01-30
精选合集
更多大家都在玩
热门话题
大家都在看
更多-
- 恋与深空最新兑换码详细汇总2024
- 时间:2024-11-22
-
- 恋与深空怦然萌动第6天三星搭配指南
- 时间:2024-11-22
-
- 肉鸽《Katanaut》Steam页面 明年Q2发售
- 时间:2024-11-22
-
- 《啪嗒砰》精神续作 节奏动作游戏《Ratatan》Steam商店页面上线
- 时间:2024-11-22
-
- 腾讯首更8集 网剧与君无间追剧日历分享
- 时间:2024-11-22
-
- 纪录片风味人间5腾讯定档1128 从香料视角看万千风味
- 时间:2024-11-22
-
- 恋与深空肯德基主题店位置具体解析
- 时间:2024-11-22
-
- 恋与深空陪伴系统开启教程
- 时间:2024-11-22