Обновлять ссылки через защищенным книг Excel с VBA

[Useful83]

Привет всем!
Я стараюсь писать код, что формула обновления через защищенным книг с VBA, но что-то не так.

Sub Update()
ActiveWorkbook.UpdateLink Name:= _
        "C:\Documents and Settings\*******.xls", Type:=xlExcelLinks, Password:="5"
End Sub

(PS: обновить ссылки без открытья источники)
Заранее спасибо!

[#32]

прошу прощения за оффтоп, но так безграмотно написать не каждый сможет, даже если очень постарается.

[kuklp]

Успокойтесь, #32. Useful83 не русскоязычный. А по русски пишет, чтоб нам понятней было.

Useful83, кусочек файла бы - с чем работать.
P.S. А почему не на Планете?:-)

[#32]

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

Успокойтесь, #32. Useful83 не русскоязычный. А по русски пишет, чтоб нам понятней было.

Тогда прошу прощения у Useful83)

[kuklp]

Метод UpdateLink не предусматривает ввод пароля, Попробуйте так:

Sub www()
    Dim aLinks, i&, wb As Workbook
    aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(aLinks) Then
        For i = 1 To UBound(aLinks)
            If aLinks(i) Like "C:\Documents and Settings\???????.xls" Then
            Set wb = Workbooks.Open(aLinks(i), 3, True, , "5")
                wb.Close 0
'                MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
            End If
        Next i
    End If
End Sub

Писал вслепую, могут быть ошибки.

[Useful83]

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

Метод UpdateLink не предусматривает ввод пароля, Попробуйте так:

Писал вслепую, могут быть ошибки.

Здраствуюте!
Kuklp Спасибо за всё! (ваш кодь работаеть как надо- хотя вы сказали что вслепую написина)
уточню вопрось данное время я использвую этот кодь

Workbooks.Open Filename:="\\??????\?????\Excel.xls", Password:="5"

и после "Update" закрываеться источник

И я хотель бы этоть процесь осушествился без открытие источнику

Заране блогадарень!

[kuklp]

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

уточню вопрось данное время я использвую этот кодь

Workbooks.Open Filename:="\\??????\?????\Excel.xls", Password:="5"

и после "Update" закрываеться источник
И я хотель бы этоть процесь осушествился без открытие источнику
Заране блогадарень!

Useful83 и Вам не болеть:-)
В строке

Set wb = Workbooks.Open(aLinks(i), 3, True, , "5")

цифра 3 как раз отвечает за Update, поэтому никаких дополнительных действий предпринимать не надо.
Дальше - без открытия(хоть с паролем, хоть без пароля)... На самом деле файл открывается в любом случае, даже если в ячейке стоит ссылка на ячейку в закрытом файле. Чтоб обновить значение ячейки система открывает файл в режиме Read only, чтоб считать оттуда данные. В приведенной мной строке за открытие в режиме Read only отвечает параметр True, третий по счету в строке параметров. В дополнение можете добавить в начало макроса строки:
With Application
.ShowWindowsInTaskbar = False
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
а в конце:
With Application
.ShowWindowsInTaskbar = True
.DisplayAlerts = True
.EnableEvents = True
.ScreenUpdating = True
End With

и Вы никак не увидите, что какой-то файл открывался(разве что в редакторе VBA при пошаговом исполнении).

[Useful83]

Спасибо вам болшое
(я вам тоже желаю самого хорошого!)