Ah ok - I see that password now. I was looking in "Protection" and "Protect Sheet" and "Protect Workbook", not in Options ... anyways, here's a modified script for that password protection ...

 Code:
Break On

$= SetOption("WrapAtEol", "On")

$= SetExcelValue("c:\sheet.xls", "tuesday", "B5", "123", "abc123")

? @SERROR

Exit 1

Function SetExcelValue($path, $sheet, $range, $value, $password)

 Dim $Excel
 Dim $WorkBook
 Dim $WorkSheet

 $Excel = CreateObject("Excel.Application")

 If @ERROR = 0
 
  $Excel.DisplayAlerts = 0

  $WorkBook = $Excel.WorkBooks.Open($path,,,,$password)

  If @ERROR = 0

   $WorkSheet = $WorkBook.Sheets.Item($sheet)

   If @ERROR = 0

    $WorkSheet.Range($range).Value = $value

    $= $WorkBook.Save()

    $WorkSheet = 0

   Endif

   $WorkBook = 0

  Endif

  $Excel.Quit
  $Excel = 0

 Endif

 Exit @ERROR

EndFunction