ThisWorkBook_Open()

[Symple me]

Скажите, пожалуйста, почему при открытии книги в ячейку А1 не присваивается значение 5. Вот код:

Private Sub ThisWorkBook_Open()
Range("A1").Value=5
End Sub

[Watcher_1]

Думаю так лечше...

Private Sub Workbook_Open()
    Range("A1").Value = 5
End Sub

[The_Prist]

Еще немаловажно уточнить, где записан код? В модуле книги или в стандартном? Должен быть в модуле книги. Если в стандартном, то:

Sub Auto_Open()
    Range("A1").Value=5
End Sub

но парни из Microsoft рекомендуют использовать событие Workbook_Open, взамен устаревшего Auto_Open.

[Symple me]

Пишет Sub or Function not defined

[The_Prist]

У меня не пишет. Не проще выложить файл со своими попытками, чтобы было ясно, где Вы ошиблись?

[Symple me]

Вроде бы сюда нельзя загружать экселевские файлы.
Ту ошибку больше не выдает. Но все равно значение присваивается только если запустить через редактор Visual Basic а хочется чтоб при открытии книги

[kuklp]

Сюда можно загружать экселевские файлы предварительно упаковав их в рар или зип.

[The_Prist]

Сообщение от Symple me

Ту ошибку больше не выдает. Но все равно значение присваивается только если запустить через редактор Visual Basic а хочется чтоб при открытии книги

Прочитатайте статью: Что такое модуль? Какие бывают модули?
Вам необходимо поместить код

Private Sub Workbook_Open()
    Range("A1").Value = 5
End Sub

в модуль ЭтаКнига

[Hugo121]

Правда скорее всего нужно ещё указать в коде лист.
Если конечно Вы не хотите, чтоб значение заносилось на тот лист, который оставил активным при сохранении юзер, а что там с остальными - не важно.

[Symple me]

Загрузила файл. У меня код к листу 16 относится.