link password protected files

Sub TestPassword()
         'Open the workbook with the password (Test2.xls) first and supply
         'the password with the password argument.
         Workbooks.Open filename:="Test2.xls", updateLinks:=3, _
            password:="test"
         'When Test1.xls is opened, the links are updated automatically.
         Workbooks.Open filename:="Test1.xls", updateLinks:=3
         'Becuase Test2.xls is open, you can close Test2.xls.
         Workbooks("Test2.xls").Close
      End Sub

Sub Open_Work_books()
Dim wbNew As Workbook
Dim WkbkName As Object
Dim ws As Worksheet
Dim strPath$
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .EnableEvents = False
        strPath = ThisWorkbook.Path & "\"
        
        For Each WkbkName In Application.Workbooks()
            'ws.Copy
         
            With wbNew
               Workbooks.Open Filename:=strPath & ws.Name & ".xls", Password:="12345"
                
            End With
            
        Next WkbkName
        
        .EnableEvents = True
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub

Sub Test()
 
    Const PASSWORD As String = "12345"
    
    Dim strPath As String
    Dim strNextFile As String
    
    strPath = ThisWorkbook.Path & "\"
    
    
    strNextFile = Dir(strPath, vbNormal)
    
    On Error Resume Next
    Application.ScreenUpdating = False
    
    Do While Len(strNextFile) <> 0
        
        If strNextFile <> ThisWorkbook.Name Then
            If Right(strNextFile, 4) = ".xls" Then
                Workbooks.Open Filename:=strPath & strNextFile, _
                UpdateLinks:=xlUpdateLinksAlways, _
                PASSWORD:=PASSWORD, WriteResPassword:=PASSWORD
            End If
        End If
        
        strNextFile = Dir
    Loop
    
    Application.ScreenUpdating = True
 
End Sub