Excel中单个工作表加密.docVIP

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 En