MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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: Sab 10 Dez 2016, 06:50