Добавил строчку в код - вот так.
И скрипт вообще перестал реагировать на изменения в ячейке экселя.

#Persistent
global i := 0
XL := ComObjActive("Excel.Application")
Sheet := XL.Workbooks("1.xls").Worksheets("Лист1")
ComObjConnect(Sheet, Calculate)

   Calculate(cell) {
   	   XL := ComObjActive("Excel.Application")
     If (XL.Workbooks("1.xls").Worksheets("Лист1").Cells(1 ,1).Value = "один") and (i = 0)
   msgbox Событие
    i := 1
    If (XL.Workbooks("1.xls").Worksheets("Лист1").Cells(1 ,1).Value = "два")
      i := 0
   }

Подскажите такую вещь.

Как прописать полный путь ячейки (с учетом листа и книги) ?
Книга называется 1.xls, а лист - "Лист1"

(сейчас стоит Sheet := XL.ActiveSheet , то есть активный лист, а книга вообще не указана)
Просто нужно чтобы скрипт как-то находил нужную книгу и лист в ней.

#Persistent
global i := 0
XL := ComObjActive("Excel.Application")
Sheet := XL.ActiveSheet
ComObjConnect(Sheet, Calculate)

   Calculate(cell) {
   	   XL := ComObjActive("Excel.Application")
     If (XL.Range("J5").Value = "один") and (i = 0)
   msgbox Событие
    i := 1
    If (XL.Range("J5").Value = "два")
      i := 0
   }

Этот скрипт - работает, но неправильно.
Сообщение - должно запускаться только при условии, что в ячейке было какое-то другое слово, а потом оно сменилось на слово "один".
Вот это и есть изменение значения в ячейке.

А у вас скрипт запускается даже тогда, когда в ячейке изначально было значение "один", а после пересчета листа - появляется то же самое значение "один". И скрипт опять срабатывает - выдавая сообщение. Хотя значение - не изменилось.

#Persistent
XL := ComObjActive("Excel.Application")
Sheet := XL.ActiveSheet
ComObjConnect(Sheet, Worksheet_Events)

class Worksheet_Events {
   Change(cell, sheet) {
      If (cell.address = "$J$5") and (Sheet.Cells.Range("J5").Value = "один")
       msgbox событие
   }
}

И что, тс будет сам менять формулу на слово "один".
Я так понимаю, формула - это результат каких-то вычислений.

Это значит - сообщение будет выдаваться постоянно при любом пересчете листа, а не в том случае, когда меняется значение ячейки.