Изменение свойств ячеек неактивного листа...

[Rust]

' В глобальном модуле
Public Sh As Worksheet

' В модуле формы
Set Sh = ThisWorkbook.Worksheets("Лист3")
With Sh.Range("A9:H9,D11:E11,A22:H22,D24:E24").Font
.Name = "Courier New"
.Size = 12
End With
Ошибка: Нельзя установить св-во Name класса Font

Вопрос: Как заставить работать этот код в Microsoft Office 97?
"Лист3" - неактивен (скрыт)
В более поздних версиях Office код отрабатывает нормально.
Заранее благодарен.

[KL]

Привет Rust,

' В глобальном модуле

Код: Выделить всё

Public Sh As Worksheet

.

У тебя наверное очень веские основания для того, чтобы постоянно занимать память этой переменной

Код: Выделить всё

Set Sh = ThisWorkbook.Worksheets("Лист3")
With Sh.Range("A9:H9,D11:E11,A22:H22,D24:E24").Font
     .Name = "Courier New"
     .Size = 12
End With

Ошибка: Нельзя установить св-во Name класса Font
...Microsoft Office 97?
..."Лист3" - неактивен (скрыт)
...В более поздних версиях Office код отрабатывает

Мне кажется, что дело не в скрытости, а в защищенности...
Попробуй это из XL97 и если сработает,...

Код: Выделить всё

Sub test1()
    Dim Sh As Worksheet
    Set Sh = ThisWorkbook.Worksheets("Лист3")
    Sh.Protect userinterfaceonly:=True
    With Sh.Range("A9:H9,D11:E11,A22:H22,D24:E24").Font
         .Name = "Courier New"
         .Size = 12
    End With
End Sub

...тогда используй для всех версий след. код:
в модуле ThisWorkbook

Код: Выделить всё

Private Sub Workbook_Open()
    Worksheets("Лист3").Protect Password:="abracadabra", userinterfaceonly:=True
End Sub

где "abracadabra" это твой реальный пароль защиты.

[Rust]

Дело не в защите листа, т.к. лист не защищён.

[KL]

Ну тогда остается проверить не в ранге ли дело. С XL97 не работал лет 100 - многое забылось. Возможно та версия не позволяла одновременно изменять свойства несмежных рангов.
Попробуй:

Код: Выделить всё

With Sh.Range("A9:H9").Font
.Name = "Courier New"
.Size = 12
End With

если прокатит, будешь знать причину.

[Rust]

Дело не в Range, и даже через Cells не работает.

[KL]

Ух блин - придется откапывать, неизвестно куда засунутый VPC с XL97

А пока еще несколько вопросов:
1) "Courier New" на машине установлен?
2) Пробовал запускать макрос при не скрытом и не активном "Лист3"? И...?
3) Пробовал запускать макрос при не скрытом и активном "Лист3"? И...?

[KL]

Проверено на XL97 (англ.), все смоделировано в соответствии с описанием, - сбоев не дает. Отсюда вывод: Либо в проблемном компе отсутствует какое обновление для XL, либо не хватает существенных деталей в описании проблемы Время выкладывать файл.

[Rust]

Спасибо, lapink2000, за участие!
Буду разбираться дальше - дело принципа!
Создал новую книгу, поместил в неё вышеприведённый код,
всё сработало нормально - без ошибок.