[Resolvido]Importar Planilha Excel .Xlsx com Senha

Bom dia gente

Estou tentando importar uma planilha do excel xlsx com senha e não estou conseguindo. Vi alguns exemplos e todos so importam versão xls mas o xlsx parece que não funcona. Se alguem tiver alguma experiencia e puder me ajudar agradeço.

Este exemplo por exemplo não funciona inserindo a senha

Código:


Function ImportProtected(strFile As String, _
strPassword As String)
Dim exApp As Excel.Application
Dim oExcel As Object, oWb As Object, wkb As Object
Set oExcel = CreateObject("Excel.Application")
Set oWb = oExcel.Workbooks.Open(FileName:=strFile, _
Password:=strPassword)
DoCmd.TransferSpreadsheet transfertype:=acImport, SpreadsheetType:=5, _
TableName:="tmpTableName", FileName:=strFile, _
Hasfieldnames:=True, Range:="Q1!C:G"
 Set exApp = appExcel.Workbooks.Open(strFile)
      exApp.Password = strPassword
exApp.Save:  exApp.Close
oWb.Close SaveChanges:=False
oExcel.Quit
Set oExcel = Nothing
End Function`


Olá Cleber Botelho,

Veja tópico abaixo:
https://www.maximoaccess.com/t30369-importar-xls-protegido-com-password

Abraço

Deu certo!

Obrigado Alvaro Teixeira, o problema era que para xlsx com mais de uma guia na planilha continuava pedindo a senha, mas vi em um exemplo, colocando na opção "Range", o intervalo da guia a ser importada tipo:"Grupperat!A1:C1000", assim deu certo, nao pediu mais a senha, valeu obrigado!

Resolvido