livei 发表于 2014-10-24 12:57:03

求助:怎么给Excel2007工作簿加密码

想批量给Word和Excel文档加打开密码,Word可以了,Excel却怎么也加不了,有高手帮忙看一下吗?;给Word加密码
$oAppl = ObjCreate("Word.Application")
$oDoc = $oAppl.Documents.Open("e:\abc.docx");文件名自己修改
$oDoc.Password="1234"
$oDoc.Save
$oAppl.Quit


;给Excel加密
$oExcel = ObjCreate("Excel.Application")
$oWorkbook = $oExcel.Workbooks.Open("e:\abc.xlsx")
$oExcel.ActiveWorkbooks.Protect="1234"
$oWorkbook.Save
$oExcel.Quit

kevinch 发表于 2014-10-24 13:37:57

$oWorkbook.Password="1234"改成这样试下

livei 发表于 2014-10-24 14:06:00

可以了,太感谢了。
页: [1]
查看完整版本: 求助:怎么给Excel2007工作簿加密码