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