Как в кодинге VBA Экселевком сделать Range("МоеИмя"

[Andruid]

Как в кодинге VBA Экселевком сделать Range("МоеИмя") доступным только для чтения? Range состоит из трех объединенных ячеек. Надо сделать ее только для чтения, находясь на другом листе и не переходя на другой лист.

[GSerg]

Как пробовал?

[Andruid]

Worksheets(sSheetName).Range(sRangeName).Locked = True
Если Range состоит из одной ячейки - работает,
а если - несколько объединенных ячеек - не залочивает

[GSerg]

Работает, проверил.

[Andruid]

А у тебя какой офис?

[GSerg]

97

А у тебя какие ячейки?

[Andruid]

в смысле какие?

[GSerg]

Ну не знаю... Смежные там, раздельные...

[Nausicaa]

Sub MergeAndLocked()
Dim TmpRange As Range, MergeRange As Range
Set TmpRange = Worksheets("Sheet3").Range("Dn")
If TmpRange.MergeCells Then
Set MergeRange = TmpRange.MergeArea
TmpRange.UnMerge
TmpRange.Locked = True
MergeRange.Merge
Else
TmpRange.Locked = True
End If
End Sub

[alibek]

Защиту листа включал?

[Andruid]

Защита листа выключена, но все равно не отрабатывает

[GSerg]

А ты включи.

[Andruid]

А без разницы, что включена защита листа, что выключена