怎么给文件设置密码:如何为PDF文件导出设置密码(vba save as pdf with password)

我需要添加提取 PDF 的密码。

Dim FileName As String
Dim FilePath As String
FileName = Me.Full_Name & "_" & Me.ID
FilePath = "C:\Users\Desktop\" & FileName & ".Pdf"
DoCmd.OutputTo acOutputReport, "Report", acFormatPDF, FilePath
MsgBox "Exported Successfully"
1

这里有一个使用 Ghostscript 的解决方案。首先像你已经做的那样打印你的 pdf,然后调用的函数。Ghostscript 在许可协议下是免费的,afaik

Public Function fctPDO_Print_pdf_GhostScript(strFile_for_pdf As String, Optional strUserPassword As String = "", Optional strOwnerPassword As String = "") As String
        ' http://www.herber.de/forum/archiv/1164to1168/1165503_Zusammenfuehren_von_PDF_Files.html#1165503
        ' https://stackoverflow.com/questions/49953421/ghostscript-with-aes-256-password-protection-for-pdf-2-0-documents
        ' PDO: Prints a pdf (originally multi-pdf). Requires Ghostscript, and read/write rights.
        '      Existing files are overwritten without asking.
        '      Provide both passwords to lock. Ghostscript does rc4 , being comparatively unsafe.
        '
          On Error Resume Next
          Dim fso As Object, WshShell As Object
          Dim strZielOrdner As String
          Dim strQuellOrdner As String
          Dim strCommand As String
          Dim strGhostScript As String
          Dim strFile_with_Path As String
          Dim strTargetFile_without_Path As String
          Set fso = CreateObject("Scripting.FileSystemObject")
         'Path to gswin32c.exe
          strGhostScript = "C:\Program Files (x86)\gs\gs9.19\bin\gswin32c.exe"
         ' Define folder
          strQuellOrdner = "D:\PDO_test"
          strZielOrdner = "D:\PDO_test"
         ' Shell-command prepare
          strZielOrdner = fso.GetFolder(strZielOrdner).ShortPath
          strGhostScript = fso.GetFile(strGhostScript).ShortPath
          strCommand = strGhostScript & " -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite"
            ' PDO: Passwort-Phrase, with Ghostscript only RC4 possible...
            If ((strUserPassword <> "") And (strOwnerPassword <> "")) Then
                strCommand = strCommand & " -sOwnerPassword=" & strOwnerPassword & " -sUserPassword=" & strUserPassword & " -dCompatibilityLevel=2.0"
            End If
          strCommand = strCommand & " -sOutputFile=" & Chr(34)
          strCommand = strCommand & strZielOrdner & "\"   'PDO: Danach kommt die Zieldatei und die einzelnen, anzubindenden Dateien.
          strTargetFile_without_Path = "Beratungsprotokoll_2018_Sammel.pdf"
          strFile_with_Path = strFile_for_pdf
               ' PDO: Gesamtcommand pt togehter ad executed
                strCommand = strCommand & strTargetFile_without_Path & Chr(34) & strFile_with_Path
                Debug.Print strCommand
                Set WshShell = CreateObject("WScript.Shell")
                WshShell.Run strCommand, 0, True
                Set WshShell = Nothing
            fctPDO_Print_pdf_GhostScript = strZielOrdner & "\" & strTargetFile_without_Path
        ' Cleanup:
Err_Handler:
          Set fso = Nothing
          MsgBox "Done"
        End Function

本站系公益性非盈利分享网址,本文来自用户投稿,不代表边看边学立场,如若转载,请注明出处

(691)
Cc棒怎么用:顺风包子怎么用:(use tailwind in react)
上一篇
服务器创建虚拟环境:Conda:创建虚拟环境(conda create env python 3.6)
下一篇

相关推荐

  • qt creator快速入门 第3版 pdf从零开始

    Qt Creator快速入门第3版是一本关于Qt Creator的教程书,旨在帮助读者快速掌握Qt Creator的使用。书中介绍了Qt Creator的基本功能,如如何创建项目、编辑代码、调试代码以及创建应用程序等等。书中还提供了一些实例代码,帮助读者更好地理解Qt Creator的用法。…

    2023-05-16 03:03:33
    0 42 75
  • Cdr导出pdf文件太大:PyPDF4-导出的PDF文件大小太大

    关于Cdr导出pdf文件太大的问题,在adobe condense pdf中经常遇到,我有一个大约 7000 页和 479 MB 的 PDF 文件。我已经使用 PyPDF4 创建了一个 python 脚本,如果页面包含特定的单词,则只提取特定的页面。该脚本可以工作,但新的 PDF 文件,即使它只有原始 7000 页的 650 页,现在比原始文件 (498 MB 是准确的) 有更多的 MB。…

    2024-02-11 00:46:08
    0 29 52
  • 如何将2个pdf文件合并:如何将多个PDF文件合并为一个(acrobat pdf merger tool)

    关于如何将2个pdf文件合并的问题,在acrobat pdf merger tool中经常遇到,我有 16 个 pdf,我想转换成一个单一的...我在 Ubuntu 10.10,我该怎么做?…

    2024-06-11 03:03:22
    0 35 87
  • 设置文件打开密码:如何为PDF文件导出设置密码(vba save as pdf with password)

    关于设置文件打开密码的问题,在vba save as pdf with password中经常遇到,我需要添加提取 PDF 的密码。…

    2024-04-08 04:46:37
    0 11 85
  • 手机怎么把pdf文件转换成word:怎么把GDSII转换成Gerber或 ODB++进行PCB打印

    关于手机怎么把pdf文件转换成word的问题,在odb++ file中经常遇到,我已经使用 gdspy 生成了一个非常简单的 GDS 文件,该文件描述了一个 PCB 文件(第 0 层:电路板切口,第 1 层:顶部金属化,第 2 层:通孔)。我正在尝试以Sunstone打印此 PCB;但是,它们需要 gerber 或 ODB ++ 文件。我是 PCB 印刷的新手,我想知道我的选项是从.gds 文件转换为 Gerber 或…

    2024-04-12 03:55:22
    0 48 72
  • Edge扩展程序:MicrosoftEdgePDF查看器扩展程序位置

    关于Edge扩展程序的问题,在add pages to pdf microsoft edge中经常遇到,我有兴趣搞乱 Microsoft Edge 的内置 PDF 查看器。我知道您可以在 Dev 控制台中检查其文件,但我想知道这些文件的实际位置,以便我可以更改它们以更改 / 添加一些功能。另一种可能性是在加载 PDF 时运行用户脚本,但在 Edge 中打开 PDF 文件时 tampermonkey 似乎不起作用。…

    2023-11-11 01:55:02
    0 68 13
  • CHEAPER2.WORK浏览器打开:在浏览器2页面向上视图中打开PDF

    关于CHEAPER2.WORK浏览器打开的问题,在adobe acrobat view pages side by side中经常遇到,有没有办法在页面中嵌入 pdf,当它打开时,一次并排显示两个页面?…

    2024-02-12 00:45:37
    0 56 71
  • 打印是cmyk还是rgb:是否可以使用GhostScript检查PDF是CMYK还是RGB

    关于打印是cmyk还是rgb的问题,在pdf check cmyk中经常遇到,是否可以使用 GhostScript 检查 PDF 是 CMYK 还是 RGB?…

    2024-05-27 11:06:51
    0 12 98

发表评论

登录 后才能评论

评论列表(87条)