Высота строк и перенос по словам

[staniiislav]

Приветы всем ) есть небольшая проблемка, нужна помощь.
Выкладываю файлик, в расписана проблема, она касается непосредственно переноса по словам.
Заранее СПАСИБО!

[staniiislav]

Сообщение от staniiislav

Приветы всем ) есть небольшая проблемка, нужна помощь.
Выкладываю файлик, в расписана проблема, она касается непосредственно переноса по словам.
Заранее СПАСИБО!

вот нашел вроде код:
'Private Sub Worksheet_Change(ByVal Target As Range)
'If Not Intersect(Range("bo1").Precedents, Target) Is Nothing Then Rows("1:1").EntireRow.AutoFit
'End Sub

только куда его вставлять и мне нужно для диапазона ячеек. плюс лист защищенный

[VictorM]

1. Вставлять в модуль листа
2. Напишите Cells.EntireRow.AutoFit и будет работать для всех строк листа.
3. Снимать защиту, по другому никак.

[VictorM]

Если у вас допускается сделать все это кнопочкой, можно сделать вот так:

Sub RAFit()
    Worksheets("Лист1").Unprotect    'Password:="1111"
    Cells.EntireRow.AutoFit
    Worksheets("Лист1").Protect
End Sub

[staniiislav]

Спасибо))) Вроде даже с защищенными ячейками работает! Правда защита листа без "пароля". На оригинальном файле, работает вот с этим кодом:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("bo8:bp33").Precede nts, Target) Is Nothing Then Cells.EntireRow.AutoFit
End Sub

Еще раз спасибо!
А насчет кнопочки, к сожалению неприемлемо, но все равно спасибо!