MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Exportar tabela ou consulta no access para o excel - Atribuindo senha

    Compartilhe

    lebersa12
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 16/05/2014

    [Resolvido]Exportar tabela ou consulta no access para o excel - Atribuindo senha

    Mensagem  lebersa12 em Seg 22 Set 2014, 21:47

    Boa tarde à todos!

    Utilizo um código que exporta as informações de uma consulta para um excel, a rotina funciona bem.
    Tenho uma pequena necessidade, quando gerar o excel, preciso atribuir uma senha de proteção a este arquivo.

    Abaixo o código que utilizo.

    Public Sub gera_relatorio()
    Dim excap As Excel.Application
    Dim rs As DAO.Recordset
    Dim filename, nomerel As String
    Dim linha As String

    filename = "Caminho_do_arquivo"


    Set excap = CreateObject("Excel.Application")
    excap.Visible = False
    Workbooks.Add filename

    ' Relatório XPTO
    Sheets("XXX").Visible = True
    Sheets("XXX").Select

    Rows("2:65356").Select
    Selection.Delete Shift:=xlUp


    Set rs = CurrentDb.OpenRecordset("XXXyyy")
    rs.MoveFirst
    linha = 2
    Do While rs.EOF = False
    Range("A" & linha) = rs![XXX]
    Range("B" & linha) = rs![XXX]
    Range("C" & linha) = rs![XXX]


    Range("D" & linha) = rs![XXX]
    Range("D" & linha).Select
    Selection.Style = "Comma"


    Range("E" & linha) = rs![XXX]
    Range("E" & linha).Select
    Selection.Style = "Comma"



    Range("F" & linha) = rs![XXX]
    Range("F" & linha).Select
    Selection.NumberFormat = "dd-mmm-yy"


    Range("G" & linha) = rs![XXX]
    Range("G" & linha).Select
    Selection.NumberFormat = "dd-mmm-yy"

    Range("H" & linha) = rs![XXX]
    Range("I" & linha) = rs![XXX]


    Range("J" & linha) = rs![XXX]
    Range("J" & linha).Select
    Selection.Style = "Comma"


    Range("K" & linha) = rs![XXX]

    linha = linha + 1
    rs.MoveNext
    Loop
    rs.Close
    Columns("E:E").Select
    Selection.Font.Bold = False
    Selection.Font.Bold = True
    Range("A1").Select


    nomerel = filename
    ActiveWorkbook.SaveAs nomerel, xlNormal
    Workbooks.Close

    MsgBox "Relatório gerado com sucesso!"

    End Sub

    lebersa12
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 16/05/2014

    Exportar tabela ou consulta no access para o excel - Atribuindo senha.

    Mensagem  lebersa12 em Qua 24 Set 2014, 13:28

    Bom dia!

    Caso possuam alguma outra alternativa, eu fico a disposição para adaptar a minha rotina. Infelizmente ainda nao consegui exito para atribuir senha no excel que recebe a exportação de dados.

    Muito obrigado!

    lebersa12
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 16/05/2014

    Exportar tabela ou consulta no access para o excel - Atribuindo senha.

    Mensagem  lebersa12 em Qui 25 Set 2014, 20:35

    Tentei acrescentar o Protect no Active Workbook mas nao deu certo..

    ActiveWorkbook.Protect "XXXX", True, True

    Realmente estou precisando muito da ajuda do pessoal do fórum...

    lebersa12
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 16/05/2014

    Exportar tabela ou consulta no access para o excel - Atribuindo senha.

    Mensagem  lebersa12 em Seg 03 Nov 2014, 15:00

    !

      Data/hora atual: Qua 23 Ago 2017, 03:31