EXCE如何用VBA代码加入启动时对所有工作表加密,并设指定密码?

通过代码对excel代码进行加密即可：

1、打开您需要破解保护密码的Excel文件；

2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；

3、停止录制(这样得到一个空宏)；

4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；

5、删除窗口中的所有字符(只有几个),替换为下面的内容；

Sub 添加密码()

Dim x As Integer

For x = 1 To Sheets.Count

Sheets(x).Protect "123"

Next x

hisWorkbook.Protect "123"

首先可以确定VBA是自带加密工程的，以设置密码的方式，但是如果是商业性或者高标准的加密，VBA的加密基本不能满足需要，VBA的加密只能用于预防使用者非恶意的修改，不能称为版权和知识保护的工具。

以下是VBA加密的方法：

打开VBA界面

选择左侧VBAProject(文件名.xls),也就是所有表格最上面的那个

右键-VBAProject属性-选择“保护”标签-勾选“查看时锁定工程”并输入密码-确定

自此，VBA的密码就设定好了，单纯打开Excel，将不能直接查看VBA代码，会提示输入密码。但是很遗憾的时，有很多工具可以直接绕过密码，或者重置密码，连破解密码都不需要，所以如果要用于商业性加密，可以考虑其他软件，或者使用专业数据库代替XLS文件。

方法/步骤

1、打开Excel2007启用宏的Excel文件

2、同时按下ALT+F11键，打开VBA编辑器窗口。

3、查看对应的代码窗口，左侧VBA工程

PROJECT属性框中对应相应的SHEET表或者模块。

4、点击对应的SHEET表或者模块名称，鼠标右键放在其上，选择VBAPROJECT属性。

5、在d出的VBAPROJECT工程属性窗口中-保护选项卡-选中查看时锁定工程，“查看工程属性的密码”内输入自己要设定的密码。

6、点击确认，然后点击文件工具栏内的保存按钮。

7、下次打开Excel文件时再同时按下ALT+F11进入VBA代码编辑器，鼠标左键双击左侧VBA工程中的VBAPROJECT文件名称，d出VBAPROJECT密码输入窗口，输入密码才可进入，否则无法查看工程密码，呵呵。

---