Change PDF Properties Q

Question

I am looking to change/add features to Ron De Bruins excellent e-mail Excel via PDF format, as per below, this works great but how can I Add a security password to prevent the e-mailed document from been altered and printed?  I have Acrobat Pro extended 9.1.2
Is this even possible? I've checked some Excel forums and I've had nothing positive back
Sub Mail
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim sh As Worksheet
    Dim cell As Range
    Dim strbody As String
    Dim FilenameStr As String
    Dim TempWb As Workbook
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(olMailItem)
    Set Sourcewb = ActiveWorkbook
    If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
         & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then
    Sourcewb.Sheets(Array("By Area")).Copy
        Set TempWb = ActiveWorkbook
        On Error Resume Next
    Sheets("By Area").Select
    ActiveSheet.DrawingObjects.Visible = True
    ActiveSheet.DrawingObjects.Delete
    On Error GoTo 0
          'Change all cells in the worksheets to values if you want
    With TempWb.Sheets(1).UsedRange
    .Cells.Copy
    .Cells.PasteSpecial xlPasteValues
    .Cells(1).Select
    End With
    Application.CutCopyMode = False
        FilenameStr = Application.DefaultFilePath & "\" & "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm") & "~.pdf"
        ActiveSheet.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=FilenameStr, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
        'Close the new workbook you create file without saving
        TempWb.Close False
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        Set OutMail = OutApp.CreateItem(0)
    For Each cell In ThisWorkbook.Sheets("By Area").Range("AB1:AB15")
    strbody = strbody & cell.Value & vbNewLine
    Next
    For Each cell In ThisWorkbook.Sheets("Report") _
    .Columns("AA").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" Then
            strto = strto & cell.Value & ";"
        End If
    Next
    strto = Left(strto, Len(strto) - 1)
        On Error Resume Next
        With OutMail
            .To = strto
            .CC = ""
            .BCC = ""
            .Subject = ThisWorkbook.Sheets("By Area").Range("AA1").Value
            .Body = strbody
            .Attachments.Add FilenameStr
            .ReadReceiptRequested = False
            .Importance = 1
            .DeferredDeliveryTime = ThisWorkbook.Sheets("By Area").Range("AD1").Value
            .SendUsingAccount = OutApp.Session.Accounts.Item(1)
            .Send
        End With
        On Error GoTo 0
    'Delete the file you send
    Kill FilenameStr
    Set OutMail = Nothing
    Set OutApp = Nothing
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    Else
    MsgBox "PDF add-in Not Installed"
    End If
End Sub

Answer 1

This macro uses the PDF add-in from Microsoft, not Adobe Acrobat.
You can open the PDF document in Adobe Acrobat and add a security password.