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文件。

---