Importar XLS protegido com password

Olá, a propósito de questão de colega partilho exemplo para importar ficheiro de Excel protegido por password.

A função é da autoria de Alex Dybenko, Moscovo, Russia

Código:

Function ImportProtected(strFile As String, strPassword As String)
'-------------------------------------------------------------------------------------------------------
'Origem: http://accessblog.net/2005/04/how-to-import-password-protected-excel.html
'            Alex Dybenko, Moscow, Russia
'-------------------------------------------------------------------------------------------------------
    Dim oExcel As Object, oWb As Object
    Set oExcel = CreateObject("Excel.Application")
    Set oWb = oExcel.Workbooks.Open(FileName:=strFile, _
    Password:=strPassword)
    DoCmd.TransferSpreadsheet acImport, _
    acSpreadsheetTypeExcel9, "tbl_importada", strFile, -1
    oWb.Close SaveChanges:=False
    oExcel.Quit
    Set oExcel = Nothing
End Function

Nota: A password do ficheiro de excel que acompanha o exemplo é 123.

Abraço

Olá, segue abaixo exemplo.

Para permitir também no formato novo (XLSX ou XLSM) alterar no código onde tem:

Código:

fd.Filters.Add "Ficheiro XLS", "*.xls", 1

para:

Código:

fd.Filters.Add "Ficheiro XLS,XLSX;XLSM", "*.xls;*.xlsx;*.xlsm", 1

Abraço

obrigado, ótimo exemplo.