Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim varLinks As Variant
    Dim varPas( 1  To  2 ) As String
    Dim intIndex As Integer
    
    varPas( 1 ) = "2"
    varPas( 2 ) = "3"
    
    Set wb1 = Workbooks.Open( _
      Filename:="D:\2\1.xls", UpdateLinks:= 0 , _
      ReadOnly:=False, Password:="1")
      
    varLinks = wb1.LinkSources(xlExcelLinks)

    If Not IsEmpty(varLinks) Then
        For intIndex = LBound(varLinks) To UBound(varLinks)
            Set wb2 = Workbooks.Open( _
              Filename:=varLinks(intIndex), Password:=varPas(intIndex))
            wb2.Save
            wb2.Close
        Next intIndex
    Else
        MsgBox "Книга не содержит ссылок."
    End If

    wb1.Save
    wb1.Close

    Set wb2 = Nothing
    Set wb1 = Nothing