Como poner password a un archivo pdf generado con excel

Podrían por favor indicarme como le asigno password a un archivo PDF que genero con esta macro de excel, esta es la macro. Muchas gracias

Carlos Tovar.

Global nn As String, nom As String, ref As String
Sub recorrido()

' limpiar
Sheets("dato2").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("dato1").Select

x = 2
xx = 7
Total = 0
SANT = 0
SALDO = 0
Y = 0
TP = 0
GT = 0
While Cells(x, 1) <> "FIN"
nn = Cells(x, 1)
nom = nn
ref = Mid(nn, 1, 3) + "516"
NUMERO = Cells(x, 5)
SANT = Cells(x, 6)
almac_nombre = Cells(x, 10)
FECHA = Cells(x, 7)
VALOR = Cells(x, 8)
If VALOR < 0 Then
Y = VALOR
VALOR = 0
End If
docum_nombre = Cells(x, 11)
Sheets("dato2").Select
Cells(xx, 1) = FECHA
Cells(xx, 2) = almac_nombre
Cells(xx, 4) = docum_nombre
Cells(xx, 3) = NUMERO
Cells(xx, 5) = VALOR
Cells(xx, 6) = (Y * -1)
TP = TP + Y
Y = 0
Total = Total + VALOR
x = x + 1
xx = xx + 1
Sheets("dato1").Select
If Cells(x, 1) <> nn Then
Sheets("dato2").Select
Cells(2, 2) = nn
Cells(2, 5) = ref + " Ref.Pago Davivienda"
Dim NombreArchivo, RutaArchivo As String
nn = Mid(nn, 1, 3)
'Cells(3, 2) = nn
Cells(4, 1) = "___________________________________________________________________________________________________________"
Cells(5, 1) = " Fecha Area No.Factura Descripcion Cargos Pagos"
Cells(6, 1) = "___________________________________________________________________________________________________________"
Cells(xx + 1, 2) = " _____________________________________________________________________________"
Cells(xx + 2, 2) = " SALDO ANTERIOR CONSUMOS MES. PAGOS. SALDO A PAGAR."
Cells(xx + 3, 2) = " _____________________________________________________________________________"
Cells(xx + 4, 4) = Total
Cells(xx + 4, 3) = SANT
Cells(xx + 4, 5) = (TP * -1)
GT = (Total + SANT - (TP * -1))
Cells(xx + 4, 6) = GT
Cells(xx + 5, 2) = " _____________________________________________________________________________"
SANT = 0
Y = 0
TP = 0
Total = 0
GT = 0
NombreArchivo = nn
ActiveSheet.Pictures.Insert("C:\Users\cartera\Desktop\PSE.jpg").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _

RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
xx = 7
Range("A1:J200").Select
Selection.ClearContents
End If
Sheets("dato1").Select

Wend

End Sub