如果您的 Excel 工作簿受密码保护，即使在连接设置中提供了正确的密码，也无法打开它以访问其数据，除非已在 Microsoft Excel 应用程序中打开了该工作簿文件。"所以间接的办法，是先用Excel打开它，然后用ADO连接，使用完，再关闭它。此方法同样适用在Access VBA代码中使用，示例是在Excel VBA中使用

当然如果你感觉不爽，也可直接用excel.application 来控制它。 

Public Function gf_OpenXlsByAdo(strFile As String, strPass As String)     Dim conn As New ADODB.Connection     Dim rst As New ADODB.Recordset     Dim strConnStr As String     On Error GoTo Err_Handler     '先用Excel打开它     Workbooks.Open Filename:=ThisWorkbook.Path & "\AccessCnTest.xls", Password:=strPass '先用excel把带密码的xls文件打开           strConnStr = "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0;HDR=YES';data source=AccessCnTest.xls" '再用ADO打开这个文件，使用相对路径     conn.Open strConnStr          Set rst = conn.Execute("SELECT * FROM [AccessCnTest$] Where 我的条件 ='123'")     Do While Not rst.EOF          '循环处理数据代码     Loop        MsgBox "处理完成!"          Workbooks("AccessCnTest.xls").Close ' 关闭密码文件     Exit Function      Err_Handler:     MsgBox Err.Description End Function