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

livei

想批量给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

$oWorkbook.Password="1234"

改成这样试下

livei

可以了，太感谢了。