использование в макросе другой книги

[Роня]

Дорогой pashulka!
Выяснилось еще одно обстоятельство.
Мне надо переносить данные в соответствующие ячейки текущей книги из всех незащищенных ячеек рабочей книги.
help..........................

[pashulka]

Есть только одна функция рабочего листа, которая позволяет определить защищена/заблокирована или нет нужная ячейка и это =ЯЧЕЙКА("Protect";A1)
Но ... эта функция требует ссылку, а стало быть рабочая книга - источник обязательно должна быть открыта, т.е. мы опять возвращаемся ко второму варианту, где после открытия книги Вы можете : либо перебрать в цикле ячейки нужного диапазона (см. ниже), либо воспользоваться вышеупомянутой функцией.

Dim iCell As Range
For Each iCell In Workbooks("Открытая_книга.xls").Worksheets(1).Range("A1:A10")
    If Not iCell.Locked Then ... 'Ваши действия
    'Обратите внимание на то, что реально защита ячейки действует
    'только при условии, что рабочий лист, которому принадлежит
    'эта ячейка, также защищён, т.е. значение свойства ProtectContents = True
Next

[Роня]

Дорогой Pashulka!
Безмерно благодарна Вам за оказанную помощь. Программа готова!

[Роня]

Почти что готова...;-)
Паша, подскажите, пожалуйста, как использовать абсолютный адрес ячейки iCell.Address
а то он мне вставляет в таком виде: $A$1
я нашла описание функции Address, но что-то здесь не сходится

АДРЕС
Синтаксис:
АДРЕС(номер_строки,номер_столбца,ти п_ссылки,a1,имя_листа)
Результат:
Адрес ячейки (в текстовом виде), формируемый на основе номеров строки и столбца.
Аргументы:
номер_строки- номер строки;
номер_столбца- номер столбца;
тип_ссылки- задание типа возвращаемой ссылки; может принимать следующие значения:

Значение аргументаТип возвращаемой ссылки1 или опущенАбсолютный2Абсолютная строка; относительный столбец3Относительная строка; абсолютный столбец4Относительный

a1- логическое значение, которое определяет стиль ссылок: А1 или R1C1; если аргумент al имеет значение ИСТИНА или опущен, то функция АДРЕС возвращает ссылку в стиле А1; если этот аргумент имеет значение ЛОЖЬ, то функция АДРЕС возвращает ссылку в стиле R1C1;
имя_листа- текст, определяющий имя рабочего листа или листа макросов, который используется для формирования внешней ссылки; если аргумент имя_листа опущен, то внешние листы не используются.

[pashulka]

Роня, Вообще-то $A$1 это и есть абсолютный адрес, да и синтаксис стандартной функции рабочего листа =АДРЕС() и свойства Address -- различен, поэтому, если Вы хотите получить информацию касательно последнего, то в редакторе VBA выделите нужное слово (в данном случае Address) и нажмите клавишу F1

Однако, если мои предположения верны и Вам нужен адрес ячейки в виде '[ФФФ.xls]Продажи 2007'!$A$1 (внешняя ссылка), то Вам достаточно всего лишь использовать необязательный именованный аргумент External :

MsgBox iCell.Address(External:=True) 'Or
MsgBox iCell.Address(, , , True)

[Роня]

Извините, пожалуйста, я имела в виду, как использовать относительный адрес ячейки...
Дело в том, что хелп у меня не установлен.
Вот так вот все запущено...

[Роня]

Нашла!!!
iCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
В общем, можно сказать, произведение моей незрелой программистской мысли готово!
Только благодаря Вам, Pashulka!

[Роня]

Больше мне не к кому обратиться.

Что я делаю не так?

Private Sub CommandButton2_Click()
ThisWorkbook.UpdateLinks
End Sub

Пишет, что Invalid use of property

[pashulka]

Есть предложение, а не воспользоваться ли :

ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources

[Роня]

Милый Pashulka,
в общем, разобралась.
СПАСИБО!!!!!!!!!!!!!!!!!!!!