Изменить цвет текста заголовка окна по условию

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Изменить цвет текста заголовка окна по условию - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменить цвет текста заголовка окна по условию (Макросы/Sub)

Изменить цвет текста заголовка окна по условию

sashgera

Дата: Суббота, 28.11.2015, 15:21 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Здравствуйте
При открытии книги - стандартный заголовок окна меняется на путь до директории с файлом
[vba]

Код

Private Sub Workbook_Open()
Application.Caption = ThisWorkbook.Path & "\" & ThisWorkbook.Name
End Sub

[/vba]
пожалуйста, подскажите, как изменить цвет текста (или фон) заголовка окна
если в пути:
C:\Users\vasya\Desktop\папка1\Книга1.xlsm
будет - папка1

и еще один вопрос
При открытии файла Книга1 - выполняется макрос и стандартный заголовок окна меняется на путь до директории с файлом
Но при этом, также меняются заголовки окна во всех открытых файлах Excel
как сделать так, чтобы при открытии файла Книга1, заголовок окна менялся только в этом файле, а в других нет.

вот пример

К сообщению приложен файл: 3144901.xlsm (16.4 Kb)

Сообщение отредактировал sashgera - Суббота, 28.11.2015, 18:23

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменить цвет текста заголовка окна по условию (Макросы/Sub)

Страница 1 из 1
1