Write-Protect an Excel Generated PDFs: HOW TO DO IT?

[poizones]

I have deployed a Daily Time Record (DTR) system to the field using excel vba. Unfortunately, there are these colleagues who are not so faithful to their work. I have found out that some of them simply edited the PDF generated DTR. Can anyone help me with this?

Here are the codes that I have been using for almost 2 years already.

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

Thank you so much. Any help is appreciated very much.

 

[Fluff]

Cross posted https://www.excelforum.com/excel-pr...l-generated-pdf-how-to-do-it.html#post5122168

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.