Set password file PDF hàng loạt bằng VBA

bossh · 29/6/20

Chào các bạn,

Hiện tại mình đang nghiên cứu việc set password file PDF hàng loạt bằng VBA, mục đích làm phiếu lương. Mình có tham khảo một số cách trên google nhưng vẫn chưa tìm được code phù hợp. Không biết bạn nào đã nghiên cứu vấn đề này thì chia sẽ giúp mình nhá. Cám ơn nhiều.

Ref: https://answers.microsoft.com/en-us...a/e3b0be70-d7a5-421b-888f-980d35386c40?auth=1

Bài đã được tự động gộp: 29/6/20

Ah quên nói về yêu cầu của mình. Nó khá đơn giản:
1. Các file PDF được chứa trong 1 folder chỉ định
2. Code có nhiệm vụ truy xuất lần lượt các file PDF để setpassword theo thông tin tại một trường thông tin được ghi tại một Sheet.
Chỉ vậy thôi

Maika8008 · 29/6/20

bossh đã viết:
Chào các bạn,

Hiện tại mình đang nghiên cứu việc set password file PDF hàng loạt bằng VBA, mục đích làm phiếu lương. Mình có tham khảo một số cách trên google nhưng vẫn chưa tìm được code phù hợp. Không biết bạn nào đã nghiên cứu vấn đề này thì chia sẽ giúp mình nhá. Cám ơn nhiều.

Ref: https://answers.microsoft.com/en-us...a/e3b0be70-d7a5-421b-888f-980d35386c40?auth=1

Bài đã được tự động gộp: 29/6/20

Ah quên nói về yêu cầu của mình. Nó khá đơn giản:
1. Các file PDF được chứa trong 1 folder chỉ định
2. Code có nhiệm vụ truy xuất lần lượt các file PDF để setpassword theo thông tin tại một trường thông tin được ghi tại một Sheet.
Chỉ vậy thôi

Đã pdf mà còn muốn đặt mật khẩu, để làm chi vậy bạn?

giaiphap · 30/6/20

bossh đã viết:
Chào các bạn,

Hiện tại mình đang nghiên cứu việc set password file PDF hàng loạt bằng VBA, mục đích làm phiếu lương. Mình có tham khảo một số cách trên google nhưng vẫn chưa tìm được code phù hợp. Không biết bạn nào đã nghiên cứu vấn đề này thì chia sẽ giúp mình nhá. Cám ơn nhiều.

Ref: https://answers.microsoft.com/en-us...a/e3b0be70-d7a5-421b-888f-980d35386c40?auth=1

Bài đã được tự động gộp: 29/6/20

Ah quên nói về yêu cầu của mình. Nó khá đơn giản:
1. Các file PDF được chứa trong 1 folder chỉ định
2. Code có nhiệm vụ truy xuất lần lượt các file PDF để setpassword theo thông tin tại một trường thông tin được ghi tại một Sheet.
Chỉ vậy thôi

Xem ở chủ đề này có cái bạn cần.

Nhờ Anh Chị viết code xuất PDF từ excel giúp. xin cảm ơn.

Em có một công việc nhờ anh chị giúp đỡ. có một danh sách khách hàng và một mẫu in trong cùng một excel. em muốn kết xuất ra PDF mỗi khách hàng một file. Tên lưu theo mã khách hàng. rất mong anh chị giúp đỡ. em xin trân thành cảm ơn nhiều.

giaiphapexcel.com

bossh · 30/6/20

giaiphap đã viết:
Xem ở chủ đề này có cái bạn cần.

Nhờ Anh Chị viết code xuất PDF từ excel giúp. xin cảm ơn.

Em có một công việc nhờ anh chị giúp đỡ. có một danh sách khách hàng và một mẫu in trong cùng một excel. em muốn kết xuất ra PDF mỗi khách hàng một file. Tên lưu theo mã khách hàng. rất mong anh chị giúp đỡ. em xin trân thành cảm ơn nhiều.

giaiphapexcel.com

Cám ơn bạn, mình có đọc chủ đề này rồi nhưng lúc đó mình nghĩ là nó chưa phù hợp với mình. Tuy nhiên, do bạn note lại mình đã tìm cách tích hợp một số nội dung trong đó và có một file hoàn chỉnh. Hiện file của minh đang trong giai đoạn test, khi test thành công mình sẽ upload lên để các bạn tham khảo.

p/s: Code của mình có phần ngắn và dễ hiểu hơn, hy vọng sẽ giúp các bạn tiếp cận nhanh.

bossh · 30/6/20

bossh đã viết:
Cám ơn bạn, mình có đọc chủ đề này rồi nhưng lúc đó mình nghĩ là nó chưa phù hợp với mình. Tuy nhiên, do bạn note lại mình đã tìm cách tích hợp một số nội dung trong đó và có một file hoàn chỉnh. Hiện file của minh đang trong giai đoạn test, khi test thành công mình sẽ upload lên để các bạn tham khảo.

p/s: Code của mình có phần ngắn và dễ hiểu hơn, hy vọng sẽ giúp các bạn tiếp cận nhanh.

Nhá hàng trước nhé

thanph1995 · 14/3/22

bossh đã viết:
Nhá hàng trước nhé

bác cho e xin zalo để hỏi tí dc hk

mingchou · 30/3/22

Nhờ các AC sửa code giúp em để xuất file PDF ra có password ở 1 cột trong sheet ạ.Em cảm ơn nhiều !

Hoàng Tuấn 868 · 30/3/22

mingchou đã viết:
Nhờ các AC sửa code giúp em để xuất file PDF ra có password ở 1 cột trong sheet ạ.Em cảm ơn nhiều !

Sao đăng một nội dung mà nhiều nơi vậy.

BuiQuangThuan · 30/3/22

Hoàng Tuấn 868 đã viết:
Sao đăng một nội dung mà nhiều nơi vậy.

cái nào về trước thì được trước anh ạ

ngochoang_nt · 30/3/22

bossh đã viết:
Nhá hàng trước nhé

Nhìn chuẩn quá. Không biết bạn đã hoàn thiện chưa nhỉ ?

mingchou · 31/3/22

Hoàng Tuấn 868 đã viết:
Sao đăng một nội dung mà nhiều nơi vậy.

dạ em thấy 2 bài viết đều có nội dung em cần . A giúp em tạo password với ạ

Hoàng Tuấn 868 · 31/3/22

mingchou đã viết:
dạ em thấy 2 bài viết đều có nội dung em cần . A giúp em tạo password với ạ

Bạn đăng một nội dung ở nhiều nơi như vậy là vi phạm Nội quy diễn đàn.

mingchou · 31/3/22

Hoàng Tuấn 868 đã viết:
Bạn đăng một nội dung ở nhiều nơi như vậy là vi phạm Nội quy diễn đàn.

Dạ em xin lỗi ạ. em xin gỡ 1 bên đi ạ

Bài đã được tự động gộp: 31/3/22

mingchou đã viết:
Nhờ các AC sửa code giúp em để xuất file PDF ra có password ở 1 cột trong sheet ạ.Em cảm ơn nhiều !

Có AC nào có thể giúp em đc không ạ. Em có thể donate chút tiền công ạ

Hoàng Trọng Hữu · 15/4/22

Không biết ai đã có code tạo mật khẩu phiếu lương pdf hàng loạt chưa ạ? $===\.$

befaint · 5/5/22

Hoàng Trọng Hữu đã viết:
Không biết ai đã có code tạo mật khẩu phiếu lương pdf hàng loạt chưa ạ? $===\.$

Đây nhé bạn .

[ Python và ứng dụng ] Thư viện VBA gộp và tạo mật khẩu files PDF hàng loạt siêu bảo mật

[ Python và ứng dụng ] Thư viện VBA gộp và tạo mật khẩu files PDF hàng loạt siêu bảo mật. Tiếp một ứng dụng của Python làm thư viện cho VBA: Gộp và tạo mật khẩu files PDF hàng loạt siêu bảo mật. Thư viện vô cùng hữu ích cho công việc lập hồ sơ xuất PDF hàng loạt rồi cần gộp các files PDF lại...

www.giaiphapexcel.com

batman1 · 6/5/22

Hoàng Trọng Hữu đã viết:
Không biết ai đã có code tạo mật khẩu phiếu lương pdf hàng loạt chưa ạ?

Bạn có vài lựa chọn.
Hoặc bạn tự học viết code trong các ngôn ngữ khác. Hoặc bạn dùng code của người khác viết. Tất nhiên bạn phải đính kèm thư viện, tập tin EXE của người ta vì code không tự nhiên làm việc, nó phải chạy trên một nền tảng nào đó. Tất nhiên bạn phải phụ thuộc vào người ta. Có thể phải trả phí, phải đăng ký. Nếu miễn phí và không phải đăng ký thì ít ra là phải tin tưởng là code của người ta không làm gì "bí mật" sau lưng ta.
Có một cách không phải cài gì, chỉ cần thay đổi yêu cầu. Thực ra bạn chỉ cần gửi PDF cho người ta và sao cho chỉ người ta mở được. Vậy thì đâu nhất thiết PDF phải có mật khẩu? Có thể nén PDF với mật khẩu thì cũng chỉ người nhận mới mở được vì chỉ họ mới biết mật khẩu. Nói là không phải cài gì cũng không đúng, nhưng vd. 7-zip thì dù bạn chưa làm gì với PDF thì bạn đã cài 7-zip từ đời nào rồi, nên bây giờ không phải cài gì thêm. Và cả thế giới dùng 7-zip nên tôi tin tưởng nó hơn là sản phẩm của ông A nào đó.

Nếu bạn vẫn muốn tạo PDF với mật khẩu thì bạn hãy dừng ở đây.

Nếu bạn muốn chạy code để tạo hàng loạt ZIP với mật khẩu từ PDF thì:

1. Nếu chưa cài thì tải 7-zip về và cài đặt.

2. code như sau, chạy sub test

Mã:

Sub PasswordToPdf(ByVal pdfFullName As String, ByVal strPassword As String)
Const str7ZipPath = "C:\Program Files\7-Zip\7z.exe"
Dim strDestFileName As String, strCmd As String
    strDestFileName = Replace(pdfFullName, ".pdf", ".zip")
    strCmd = str7ZipPath & " -p" & strPassword & " a -tzip """ & strDestFileName & """ """ & pdfFullName & """"   
    Shell strCmd
End Sub

Sub test()
    PasswordToPdf ThisWorkbook.Path & "\hichic.pdf", "ngaymaiemdi"
End Sub

Ở máy tôi sau khi cài thì đường dẫn là "C:\Program Files\7-Zip\7z.exe". Nếu cần thì sửa lại ở hằng số str7ZipPath. Nếu có nhiều tập tin PDF với nhiều mật khẩu thì trong sub test gọi code chính trong vòng lặp.

befaint · 6/5/22

Thời giờ người ta dùng điện thoại là chủ yếu, và chẳng ai phải sắm thêm cái máy tính chỉ để đọc pdf cả.
Làm gì cũng cần am hiểu thực tế ngoài kia như thế nào. Việc tập tin pdf đặt mật khẩu là để nâng cao mức bảo mật, ví dụ một số ngân hàng họ gửi các bản tin pdf cho khách hàng với mật khẩu dài hơn chục ký tự ấy.

Hoàng Trọng Hữu · 6/5/22

befaint đã viết:
Đây nhé bạn .

[ Python và ứng dụng ] Thư viện VBA gộp và tạo mật khẩu files PDF hàng loạt siêu bảo mật

[ Python và ứng dụng ] Thư viện VBA gộp và tạo mật khẩu files PDF hàng loạt siêu bảo mật. Tiếp một ứng dụng của Python làm thư viện cho VBA: Gộp và tạo mật khẩu files PDF hàng loạt siêu bảo mật. Thư viện vô cùng hữu ích cho công việc lập hồ sơ xuất PDF hàng loạt rồi cần gộp các files PDF lại...

www.giaiphapexcel.com

Dạ, em cám ơn anh nhiều ạ.

Hoàng Trọng Hữu · 6/5/22

befaint đã viết:
Đây nhé bạn .

[ Python và ứng dụng ] Thư viện VBA gộp và tạo mật khẩu files PDF hàng loạt siêu bảo mật

[ Python và ứng dụng ] Thư viện VBA gộp và tạo mật khẩu files PDF hàng loạt siêu bảo mật. Tiếp một ứng dụng của Python làm thư viện cho VBA: Gộp và tạo mật khẩu files PDF hàng loạt siêu bảo mật. Thư viện vô cùng hữu ích cho công việc lập hồ sơ xuất PDF hàng loạt rồi cần gộp các files PDF lại...

www.giaiphapexcel.com

Anh ơi, emm có làm từng bước nhưng bị lỗi Run time error '429' ạ

phihndhsp · 12/5/22

giaiphap đã viết:
Xem ở chủ đề này có cái bạn cần.

Nhờ Anh Chị viết code xuất PDF từ excel giúp. xin cảm ơn.

Em có một công việc nhờ anh chị giúp đỡ. có một danh sách khách hàng và một mẫu in trong cùng một excel. em muốn kết xuất ra PDF mỗi khách hàng một file. Tên lưu theo mã khách hàng. rất mong anh chị giúp đỡ. em xin trân thành cảm ơn nhiều.

giaiphapexcel.com

không biết lúc giaiphap gởi email người ta có phản hồi nhanh hay không? chứ tui gởi email này "exlab247@gmail.com" mà gởi mấy ngày rồi vẫn chưa thấy phản hồi. hic hic

Set password file PDF hàng loạt bằng VBA

Thành viên mới

Thành viên gạo cội

==(^o^)==

Thành viên mới

Thành viên mới

File đính kèm

Thành viên mới

Thành viên mới

File đính kèm

Đăng ký hôm qua

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên mới

Thành viên mới

Đăng ký hôm qua

Thành viên mới

Thành viên chính thức

|||||||||||||

Thành viên gạo cội

|||||||||||||

Thành viên chính thức

Thành viên chính thức

Thành viên gạo cội

Facebook

Group