Excel VBA 另存為“只讀” PDF 文件

Question

以下代碼成功將 excel 工作表保存為 PDF。 我想將它保存為一個文件，每個人都可以打開，但不能使用 Adobe Acrobat Reader DC 提供的“填充和簽名”功能進行編輯。 我試圖簡單地添加以下內容，但這不起作用：

Attributes:=vbReadOnly

這是代碼的rest：

Dim sPath As String

sPath = "O:\"

With Worksheets("Sheet 1")
    .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sPath & UserForm.TextBox1.Value & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End With

Answer 1

保存后您應該可以使用SetAttr 。

SetAttr "c:\path\yourfilename.pdf", vbReadOnly