o = NEWOBJECT("Excel.Application") o.Workbooks.Open(cMyFile) o.ActiveWorkbook.WritePassword="MyPassword" o.ActiveWorkBook.Save o.Quit