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工程密码是无法看到的。

---