如何对EXCEL中某个工作表加密?对整工作簿不进行加密的
发布网友
发布时间：2022-03-04 17:31
共2个回答
懂视网
时间：2022-03-04 21:53
产品型号：ASUS S340MC
系统版本：Windows 10
软件版本：Microsoft Office Excel 2007
1、首先在电脑上打开Excel2007，点击左上角的“文件”，然后点击“另存为”。
2、点击文件选项下方的“更多选项”，在新弹出的窗口中，点击右下角的“工具”。
3、在下拉选项中点击“常规选项”，设置密码后点击“确定”，然后再次确认密码后就成功加密了。
4、再次打开这个文件，就要输入密码才能打开。
总结
1、首先在电脑上打开Excel2007，点击左上角的“文件”，然后点击“另存为”。
2、点击文件选项下方的“更多选项”，在新弹出的窗口中，点击右下角的“工具”。
3、在下拉选项中点击“常规选项”，设置密码后点击“确定”，然后再次确认密码后就成功加密了。
4、再次打开这个文件，就要输入密码才能打开。
热心网友
时间：2022-03-04 19:01
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的内容才显示出来，否则就是透明的，神不知鬼不觉;所谓“隐式”。
“隐式”加密虽然保证了没有密码的用户不能查看“加密”表格的内容，但是不能保护其他用户对其进行修改。所以我们要综合运用上面所说的“保护表格”和“隐式加密”对要保密的表格进行设置。
