Write-Protect an excel generated PDF: How to do it?

[poizones]

Can anyone suggest on how to write-protect a PDF generated from excel using VBA? I have been using the following code for almost two years already buy due to security reason, I need to add write-protection to this code.

Sub SavePDF()

Dim sRange1 As String
Dim sRange2 As String
Dim sPace As String
Dim rngRange As Range
Dim strFilename, strDirname, strPathname, strDefpath As String
 On Error Resume Next

sRange1 = ActiveSheet.Range("F9")
sRange2 = ActiveSheet.Range("Z13")
sPace = (" DTR ")

strDirname = sRange1 + sPace + sRange2

Set rngRange = Worksheets("DTR").Range("C6")

strFilename = rngRange.Value & Format(Now(), " mmddyyyy")
strDefpath = Application.ActiveWorkbook.Path

If IsEmpty(strDirname) Then Exit Sub
If IsEmpty(strFilename) Then Exit Sub
If rngRange.Value <= "" Then Exit Sub

MkDir strDefpath & "\" & strDirname
strPathname = strFilename
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDefpath & "\" & strDirname & "\" & strFilename & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False2
    
End Sub

I wish anyone could suggest on how to do it. Thank you so much everyone.

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...-excel-generated-pdfs-how-do.html#post5278593

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).