Unportect/Protect Multiple Workbooks

Sub testme()

    Dim myFileNames As String
    Dim myPasswords As String
    Dim myRealWkbkName As String
    Dim LastRowA1 As Long
    Dim LastRowB1 As Long
    Dim PWWorkbook As Workbook
    Dim i As Integer
    
    Application.ScreenUpdating = False
    
    myRealWkbkName = "C:\list.xls"
    'adjust as necessary
    
    Workbooks.Open myRealWkbkName, UpdateLinks:=False
    
    Set PWWorkbook = ActiveWorkbook
    
    LastRowA1 = PWWorkbook.Sheets("List").[A1].End(xlDown).Row
    LastRowB1 = PWWorkbook.Sheets("List").[B1].End(xlDown).Row
    
    If LastRowA1 <> LastRowB1 Then
        MsgBox "check names & passwords--qty mismatch!"
        Exit Sub
    End If
    
    For i = 1 To LastRowA1
    
        myFileNames = PWWorkbook.Sheets(1).Cells(i, 1).Value
        myPassword = "passwordhere"
        
        On Error Resume Next
        Workbooks.Open myFileNames, UpdateLinks:=False, Password:=myPassword
        On Error GoTo 0
    Next i
    
    Application.ScreenUpdating = True
    
End Sub