Excel Abrir arquivo Excel via SQL com Senha

[Crafteribanez]

Boa tarde

 

Este é um procedimento normal que utilizo no Excel2010-2013 para consultar dados em um outra pasta do Excel via SQL.

Questiono quando a pasta que quero abrir possuir senha de proteção e senha de gravação, qual parte do código modifico para inserir estas senhas  ?

 

Sub SQLConsulta()

    Application.ScreenUpdating = False
    
    On Error GoTo SQLSEMRETORNO
    
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    Dim x As Integer
    Dim INSTRUMENTO As String
    
    Plan9.Activate
    Cells.Select
    Selection.ClearContents
    
    
    Set cn = New ADODB.Connection
    
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = ThisWorkbook.FullName
        .Properties("Extended Properties") = "Excel 8.0;HDR=YES"
        .Open
    End With
    
    sql = "Select * from [Plan1$]"
    
    Set rs = New ADODB.Recordset
    rs.Open sql, cn, adOpenKeyset, adLockOptimistic, adCmdText
    Plan9.Range("A2").CopyFromRecordset rs
    
    Cells.Select
    Selection.RowHeight = 15
    
    For x = 1 To rs.Fields.Count

        Cells(1, x) = rs.Fields(x - 1).Name

    Next x
        
    
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
    
    Application.ScreenUpdating = True
    
    Exit Sub
    
SQLSEMRETORNO:

    MsgBox "A consulta não gera nenhum resultado"
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
    
    Application.ScreenUpdating = True
    
End Sub