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的内容才显示出来，否则就是透明的，神不知鬼不觉；所谓“隐式”。
“隐式”加密虽然保证了没有密码的用户不能查看“加密”表格的内容，但是不能保护其他用户对其进行修改。所以我们要综合运用上面所说的“保护表格”和“隐式加密”对要保密的表格进行设置。
上面是笔者在实践中综合出来的加密经验，希望能给大家带来方便，也恭候大家的指点交流。
中国电脑教育报 文/尹庆超
