excel - 检查另一个被密码锁定和保护的工作簿中的值 - vba excel

Question

我有两个名为 1 的 excel 文件，另一个 2 文件 1 是用于实现文件 2 中的值的代码 我在文件 2 的范围（ A1 ）中的单元格中输入了一个值，我从文件 1 中检查了这个值。如果值为 true，则给出一条消息，如果值为 false，则给出一条错误消息 已完成，工作簿 2 已关闭 代码仅在未受保护的工作簿中正常工作

• 但我希望完成此过程，以便工作簿 2 被我尝试但无法验证值的密码锁定和保护，并且工作簿被锁定并受密码保护我需要你的帮助来修改此代码，以便我可以检查锁定和受密码保护的工作簿中的值

  Sub Check()
  
        Dim con As Object, rst As Object, tFilePath As String
  
        Set rst = CreateObject("ADODB.Recordset")
        Set con = CreateObject("ADODB.Connection")
  
        tFilePath = ThisWorkbook.path & "\test1.xlsx"
  
        con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                 "Data Source=" & tFilePath & ";" & _
                 "Extended Properties='Excel 12.0;HDR=NO';"
        rst.Open "SELECT * FROM [Sheet1$A1:A1]", con, 3, 1
  
        If rst.Fields(0).Value = "909" Then
               MsgBox "true", 64
        Else
               MsgBox "Error", 64
        End If
  
        rst.Close: Set rst = Nothing
        con.Close: Set con = Nothing
  End Sub
  

标签： excelvbaxlsxxlsm