HUMBERTO IBIAPINA 22/6/2017, 12:10
Boa dia, ahteixeira,
A instrução que você encaminhou é interessante, mas o que preciso é o código que utilize o objeto recordset que acesse o arquivo do excel que esteja protegido por senha nas extensões xls, xlsx e xlsm.
Abaixo segue fragmento do código que acessa o arquivo do excel na extensão xlsm que não estã protegido por senha.
Dim conn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim strQry1 As String
strQry1 = "SELECT * FROM [Regularizacao$]"
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & CurrentProject.Path & "\Fornecedores.xlsm; Extended Properties=Excel 12.0;"
rs1.Open strQry1, conn, adOpenDynamic, adLockOptimistic