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

1、首先点击宏锁定的文件，此时文件呈现半透明状态，选择EXCEL选项。

2、在d出的对话框内选择信任中心。

3、点击信任中心设置，进入下一个对话框。

4、点击宏设置，而后选择启用所有宏。

5、点击个人信心，在保存时删除个人隐私那里不要勾选，至此全部设置完成，即解除了宏命令设置的密码。

6、就可以重新打开文件。

---