Помогите написать макрос в котором информацию в ячеку можно ввести только один раз и нельзя ее будет изменить! 

я бы сделала так:
Желательно, чтобы диапазон ячеек на которые должно распространяться такое правило был ограничен. Тогда содаем в одельно взятой ячейке формулу считающую количество заполненных ячеек спец.диапазона. Рядом с ней резервируем ячейку, куда макрос будет кидать предыдущее значение.

Далее в макросе на событие Worksheet_Change (кстати речь об Экселе?   ) сравниваем значение ячейки с текущим значением и предыдущим. 
Если они не равны, пишем код, в котором перво-наперво ячейке с пред.значением присваиваем текущее. Далее *забыла в начале обработки события перехватить адрес текущей ячейки, считаем что он у нас есть* текущей ячейке даю свойство Protection=loced, hiden , и защищаю лист. *соответственно перед всеми этими операциями лист анпротектим* 
я бы так...

Можно сделать следующее:

1. В листе, где эта штука должна работать выделить все ячейки, далее Меню-Формат-Ячейки-Защита-Защищаемая ячейка - отключить.
2. Вставить в модуль листа следующий код

3. Меню-Сервис-Защита-Защитить лист - можно разрешить выделение заблокированных и незаблокированных ячеек - установить пароль (в примере кода приведенного выше используется - aaa (латинские)).

После этого, всякая введенная вновь информация на листе будет защищена от изменений. 

Макрос в момент всякого события изменения данных на листе будет делать следующее:
- снимет временно защиту листа
- включит блокировку изменненных ячеек
- вернет защиту листа обратно

Пробуйте.

Тут вот какая ерунда - изменение может вноситься путем Paste диапазона, который наложится как на защищенные, так и на еще пустые ячейки...

Единственный способ, который у меня когда-то давно получился (восстанавливать текст лениво), был таким...

Обрабатываем Worksheet_Change. Смотрим Range, заводим под него двумерный массив (столько элементов, сколько в нем ячеек), сохраняем в массив текущее значение. Затем делаем Application.Undo. Снова проходим по каждой ячейке из Target (там предыдущие значения), и те, которые можно изменять, заменяем на сохраненное в массиве.

Единственная тонкость - как Undo, так и последующие изменения в свою очередь генерят Worksheet_Change - потому надо завести static-переменную ака флаг обработки, дабы отсеивать эти вторичные изменения и не обрабатывать их. Также на время работы макроса надо избежать повторного внешнего change...