Macro save file với định dạng pdf có pass (1 người xem)

[chienbap]

Dear Anh/Chị,

với đoạn code sau:

Set WB = ActiveWorkbook FileName = Ash.Cells(Rnum, 1) & "_Phieu luong" & ".xls"
Kill ThisWorkbook.Path & FileName
On Error GoTo 0
'WB.SaveAs FileName:="D:\PMO Projects\MailMergeSalary" & FileName
WB.SaveAs ThisWorkbook.Path & FileName, 56, Ash.Cells(Rnum, 13)

Với đoạn code này mình đã xuất ra dc file Xls, với password được lấy tự động tại cột 13. Tuy nhiên có cách nào xuất ra File là PDF thay vì XLS (vẫn có pass mở file tại cột 13) được không ạ ?

Cảm ơn Anh/Chị,

 

[quanluu]

Dear Anh/Chị,

với đoạn code sau:



Với đoạn code này mình đã xuất ra dc file Xls, với password được lấy tự động tại cột 13. Tuy nhiên có cách nào xuất ra File là PDF thay vì XLS (vẫn có pass mở file tại cột 13) được không ạ ?

Cảm ơn Anh/Chị,

Bạn thử tham khảo #2 link sau. Nói chung là ca này khó.

http://www.mrexcel.com/forum/excel-questions/593415-password-protected-pdf-file.html