The answers are on the net
Google search
Hey, Scripting Guy! How Can I Password-Protect an Excel Spreadsheet?
 Code:
BREAK ON
$objExcel = CreateObject("Excel.Application")
$objExcel.Visible = -1
;ChDir "C:\test"
$ = $objExcel.Workbooks.Open("C:\test\Book1.xls",,,,"test")
Get $