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"

设置打开密码只有以下两句就好了

ActiveWorkbook.Password = "tt"

ActiveWorkbook.WritePassword = "yy"

对于保护密码设置可以参考如下内容。

对Excel工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表进行保护。

Protect带有以下参量：Password 用于保护工作表的口令。Drawingobjects 若为True，则对工作表中的Drawingobjects对象进行保护,缺省值为True。Contents 若为True，则对单元格内容进行保护，缺省值为True。下面程序代码完成对工作表“基础数据表”的保护：

Sub 保护工作表（）

Worksheets（〃基础数据表〃）.Protect Password:="1234"

End sub

对工作表实现隐藏保护，使他人无法看到工作表：利用VBA设置Worksheet对象的Visible属性来隐藏工作表；Visible属性的值为以下三个值中的一个：

True 工作表为显示状态。

False 工作表为隐藏状态。

XlVerHidden 工作表为隐藏状态，且用户不能通过“取消隐藏”对话框将其改为显示状态。当Visible的值为XlVerHidden时，只能利用VBA将其重新设置为True。

Sub 隐藏工作表（）

Worksheets("基础数据表").Visible=False

End sub

---