I added an optional password protect param ...

 Code:
Break On

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

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

? @SERROR

Exit 1

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

 Dim $Excel
 Dim $WorkBook
 Dim $WorkSheet

 $Excel = CreateObject("Excel.Application")

 If @ERROR = 0
 
  $Excel.DisplayAlerts = 0

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

  If @ERROR = 0

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

   If @ERROR = 0

    If $password
     $= $WorkSheet.Unprotect($password)
    Endif

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

    If $password
     $= $WorkSheet.Protect($password)
    Endif

    $= $WorkBook.Save()

    $WorkSheet = 0

   Endif

   $WorkBook = 0

  Endif

  $Excel.Quit
  $Excel = 0

 Endif

 Exit @ERROR

EndFunction