在excel vb中使用引用的单元格作为路径打开多个受密码保护的文件，但第二次遍历代码会产生错误。

Sub OpenProtectedFiles()
    Dim filePath As String
    Dim password As String
    Dim wb As Workbook
    
    ' 遍历需要打开的文件列表
    For Each cell In Range("A1:A10")
        filePath = cell.Value
        password = cell.Offset(0, 1).Value
        
        ' 检查文件是否已经打开，如果是，则关闭
        For Each wb In Workbooks
            If wb.FullName = filePath Then
                wb.Close SaveChanges:=False
                Exit For
            End If
        Next wb
        
        ' 打开文件
        Set wb = Workbooks.Open(filePath, Password:=password)
        
        ' 在这里进行文件操作
        
        ' 关闭文件
        wb.Close SaveChanges:=False
    Next cell
End Sub