[Малюк]

Ранее мною тема поднималась но только для Word, а теперь интересует для Excel.
Подскажите пожалуйста как сделать в Excel, чтобы название заголовка экрана отображалось полным именем? Всем ответившим спасибо.

[Солидворкер]

Интуитивно подозреваю, что в Excel аналогично Word

[Малюк]

Может быть. Но делается как-то по другому. Что-то не могу шаблона найти.

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

Sub Test()
  If ThisWorkbook.Saved Then
    ThisWorkbook.Application.Caption = "kpblc Excel : " & ThisWorkbook.FullName
  End If
End Sub

Проверял на 2003 - вроде работает.

[Малюк]

А куда код вставлять?

Сообщение от Малюк А куда код вставлять?

Это VBA. Нажимаешь в Excel Alt+F11, добавляешь Module и в поле Code копируешь код. Далее запускаешь как макрос.

[Малюк]

Тоесть насколько я понял автоматически как в Word (при открывании любого файла высвечивается полное имя) не получится?

[Солидворкер]

Офис какой?

Сообщение от Малюк Тоесть насколько я понял автоматически как в Word (при открывании любого файла высвечивается полное имя) не получится?

Не знаю, как в Excel, но в Word, если процедура (макрос) носит имя AutoExec и сохранен в шаблоне Normal.dot, то эта процедура выполняется автоматически при открытии файла (разумеется, если уровень безопасности установлен низкий). Если я не ошибаюсь, то в Excel макрос с автозапуском при открытии файла должен называться Auto_Open.

Код:

[Выделить все]

Sub Auto_Open()
  If ThisWorkbook.Saved Then
    ThisWorkbook.Application.Caption = "kpblc Excel : " & ThisWorkbook.FullName
  End If
End Sub

[Малюк]

Сообщение от Солидворкер Офис какой?

См. вложение

[Солидворкер]

В ворде как ты настраивал?

[Малюк]

C:\Documents and Settings\Admin\Application Data\Microsoft\Шаблоны\Normal.dot
там водим макрос

Код:

[Выделить все]

Sub AutoOpen()
  With ThisDocument.Application
    .ActiveWindow.Caption = .ActiveDocument.FullName
  End With
End Sub

и сохраняем

[Кулик Алексей aka kpblc]

http://office.microsoft.com/ru-ru/ex...189581049.aspx
http://www.pro-excel.ru/?p=73
http://office.microsoft.com/ru-ru/ex...oAutomatically