一、如何对excel中的宏设置密码保护
在单位经常是多个人共用一台电脑，这样一来，自己制作的Excel表格，不希望别人查看，我们可以为其设置密码。
1、启动Excel，打开相应的工作簿文档，执行“工具→选项”命令，打开“选项”对话框。
2、切换到“安全性”标签下，在“打开权限密码”右侧的方框中输入密码，按下“确定”按钮，再输入一次密码，确定返回。
3、保存一下文档。
经过这样设置后，如果需要打开该工作簿时，必须输入正确的密码，否则无法打开。
注意：打开“选项”对话框，切换到“安全性”标签下，把“打开权限密码”右侧的方框中的密码清除，确定返回，再保存一下文档，即可清除文档的密码。
1.在“文件”中选择“另存为” 2.在“另存为”对话框的右上角点“工具” 3.在“工具”下拉菜单中选择“常规选项” 4.在打开的对话框中输入密码，点“确定”即可。
二、如何对Excel内的宏设置密码
设置打开密码只有以下两句就好了
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
