1、首先点击宏锁定的文件,此时文件呈现半透明状态,选择EXCEL选项。
2、在d出的对话框内选择信任中心。
3、点击信任中心设置,进入下一个对话框。
4、点击宏设置,而后选择启用所有宏。
5、点击个人信心,在保存时删除个人隐私那里不要勾选,至此全部设置完成,即解除了宏命令设置的密码。
6、就可以重新打开文件。
设置打开密码只有以下两句就好了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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)