Como colocar senha em qualquer arquivo

Discussão em 'Progress 4GL' iniciado por eduardohg, Abril 26, 2023.

Página 1 de 3
  1. eduardohg

    eduardohg Membro Participativo

    Bom dia.
    Estou com necessidade de colocar senha em alguns arquivos selecionados, não é zipar e sim que o mesmo solicite senha ao ser aberto.
    OBS: principalmente PDF
    eduardohg, Abril 26, 2023
    #1
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Você que está gerando os arquivos ou vc quer colocar senha em arquivos já gerados???
    rafael.andrade, Abril 26, 2023
    #2
  3. eduardohg

    eduardohg Membro Participativo

    O arquivo esta sendo gerado pelo programa datasul, mas a outra situação acho que também serviria.
    eduardohg, Abril 26, 2023
    #3
  4. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    E quais programas vc usa pra gerar seus arquivos, Word.Application, Excel.Application e PDFInclude?
    Poderia nomeá-los por favor?
    rafael.andrade, Abril 26, 2023
    #4
  5. eduardohg

    eduardohg Membro Participativo

    Excel.Application
    eduardohg, Abril 26, 2023
    #5
  6. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Este é o código para proteger, veja se está compreensível:

    Código:
    DEF VAR chExcel AS COM-HANDLE.
DEF VAR chWorkbook AS COM-HANDLE.

CREATE "Excel.Application" chExcel.

chExcel:VISIBLE = TRUE.
chWorkbook = chExcel:Workbooks:ADD().

//51 é o formato XLSX padrão
chWorkbook:SaveAs("C:\Temp\TesteSenha.xlsx",51,"SenhaLeitura","SenhaAlteração",,,,,,,,,).
chExcel:QUIT().
    rafael.andrade, Abril 26, 2023
    #6
Página 1 de 3

Compartilhe esta Página