如何对Excel内的宏设置密码

Question

如题所述

Answer 1

设置打开密码只有以下两句就好了
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

Answer 2

EXCEL有一个自带的VBA编辑器（在EXCEL里按ALT+F11可打开VBA编辑器），该编辑器可以设置独立的“工程属性密码”（见下图），用于保护VBA代码以免被修改，而EXCEL录制的宏也是属于VBA代码的一部分，所以如果需要查看宏，肯定需要这个工程属性密码的。
如果该EXCEL文件不是自己编辑的，无法确切知道VBA密码，非常遗憾，该VBA代码是无法查看的。只能联系该文档的编辑者，找到VBA代码才能重新打开。本回答被网友采纳