MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Importar XLS protegido com password

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6894
    Registrado : 15/03/2013

    Importar XLS protegido com password Empty Importar XLS protegido com password

    Mensagem  ahteixeira em 2/6/2017, 01:35

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6894
    Registrado : 15/03/2013

    Importar XLS protegido com password Empty Re: Importar XLS protegido com password

    Mensagem  ahteixeira em 13/2/2020, 22:44

    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
    Anexos
    Importar XLS protegido com password AttachmentImportar_XLS_protegido_com_password.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 33 vez(es)

    Carvalho gosta desta mensagem

    Carvalho
    Carvalho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 19/01/2013

    Importar XLS protegido com password Empty Re: Importar XLS protegido com password

    Mensagem  Carvalho Ontem à(s) 14:12

    obrigado, ótimo exemplo.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6894
    Registrado : 15/03/2013

    Importar XLS protegido com password Empty Re: Importar XLS protegido com password

    Mensagem  ahteixeira Ontem à(s) 17:51

    cheers

      Data/hora atual: 19/9/2020, 09:44