Question

怎么给excel表格里各张工作表分别加密

怎么给excel表格里各张工作表分别加密？高人赐教！

Answer 1

以Microsoft Office Excel 2007为例，介绍如何给Excel文件的不同工作表分别加密：

1、打开需要设置加密保护的包含多张工作表的Excel文档；
2、点击左下角需要加密的第一个工作表，如“Sheet 1”；
3、点击工具栏上的“审阅”；
4、在“审阅”栏中点击“保护工作表”；
5、在弹出的“保护工作表”对话中根据需要选择需要保护的项目，并设置“取消工作表保护时使用的密码”；
6、点击“确定”完成第一个工作表的加密设置；
7、重复第2至第6步完成对其他需要加密的工作表进行加密保护。

通过以上步骤，就完成了对Excel文件的不同工作表的加密。

Answer 2

对工作薄不同工作表设置不同密码，但必须有一个空白页坐主页暂定主页为sheet1，添加按钮指定宏为设置密码将以下代码复制到vb编辑器的模块内即可，vb工程密码必须自己熟记，工作表密码太多，有时会忘记，这时你可以打开代码页查看工作表密码，作表密码是代码中a的值，以下为实例，请参考修改即可。　　　　Sub 设置密码()　　　　　　　　　　　　　　　 Dim a As String　　　　　　　　　　　　　　　 Dim b As String　　　　　　　　　　　　　　　 Dim y As Variant　　　　　　　　　　　　　　　 Dim x As Variant　　　　　　　　　　　　　　　 y = InputBox(Prompt:="输入表代号密码")　　　　　　　　　　　　 x = InputBox(Prompt:="输入密码")　　　　　　　　　　　　　 If y = 1 Then　　　　　　　　　　　　　　　　 a = "7036097": b = "Sheet2"　　　　　　　　　　　　　 ElseIf y = 2 Then　　　　　　　　　　　　　　　 a = "7036098": b = "Sheet3"　　　　　　　　　　　　　 ElseIf y = 3 Then　　　　　　　　　　　　　　　 a = "7036099": b = "Sheet4"　　　　　　　　　　　　　 ElseIf y = 4 Then　　　　　　　　　　　　　　　 a = "7036100": b = "Sheet5"　　　　　　　　　　　　　 ElseIf y = 5 Then　　　　　　　　　　　　　　　 a = "7036100": b = "Sheet6"　　　　　　　　　　　　　 ElseIf y = 6 Then　　　　　　　　　　　　　　　 a = "7036101": b = "个人预算表"　　　　　　　　　　　　　 End If　　　　　　　　　　　　　　　　If x = a Then　　　　　　　　　　　　　　　　 Application.Sheets(b).Visible = True　　　　　　　　　　　　 Else　　　　　　　　　　　　　　　　 Application.Sheets(b).Visible = False　　　　　　　　　　　　End If　　　　　　　　　　　　　　　　　End Sub　　　　　　　　　　　　　　　　

Answer 3

你可以在百度上下载超级加密3000 这是一款功能强大的文件和文件夹加密和保护软件。

超级加密3000有超快和最强的文件、文件夹加密功能、数据保护功能，文件夹、文件的粉碎删除以及文件夹伪装等功能。

超级加密 3000采用先进的加密算法，使你的文件和文件夹加密后，真正的达到超高的加密强度，让你的加密数据无懈可击。

超级加密3000还支持加密文件的临时解密，文件加密后，双击加密文件，在弹出密码输入对话框输入正确的密码选择确定，该加密文件就处于临时解密，文件使用完毕退出以后，它自动恢复到加密状态，无需再加密。

超级加密3000是一款不可多得的文件加密软件，您可以到百度上搜索超级加密3000给您的文件加密试试看。

Answer 4

可以应用 工作簿的 Private Sub Workbook_SheetActivate(ByVal Sh As Object) 事件来实现。

Answer 5

菜单》工具》保护，再按你自己的要求输入密码就行了。