Code lưu sheet ra file PDF có mật khẩu

[hoangexcell]

Chào cả nhà,

Tình hình mình đang phải giải quyết vấn đề như sau.
Nhưng không biết lập trình VBA, chỉ dùng record, nên nhờ các cao thủ chỉ thêm cho mình nhé.

Phần 1: Code để in với các yêu cầu sau:
1. Lưu active sheet đó ra thành 1 file pdf theo tên và có mật khẩu mở theo dữ liệu ở ô cung cấp
2. Định dạng nội dung chuyển là như trang in excel đã căn chỉnh vừa vặn
2. Đường dẫn là nơi lưu workbook của nó. (hiện có dùng lệnh chrdir mà không thành công)

Phần 2: Điều chỉnh tự động theo nhu cầu
.1. Chế độ 1 là Save theo từng số thứ tự: Mỗi khi bấm lưu, thì tăng số in lên 1 để có thể bấm tiếp lưu
Mục đích là để quan sát từng thông tin kiểm tra trước khi lưu.
2. Chế độ 2 là lưu hàng loạt theo số thứ tự đã nhập vào ô từ số - đến số: Lúc này không cần kiểm mà lưu ra hàng loạt

Sub Luu_pdf()

    chrdir = ThisWorkbook.Path
    tenfile = Sheets("PL").Range("S8")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=tenfile _
        , Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Xin cảm ơn cả nhà!

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

File mẫu

 

[ThangCuAnh]

Addin export pdf của Office kg hổ trợ tạo file pdf có password bạn à

 

[NgoctrinhUSA]

Chào cả nhà,

Tình hình mình đang phải giải quyết vấn đề như sau.
Nhưng không biết lập trình VBA, chỉ dùng record, nên nhờ các cao thủ chỉ thêm cho mình nhé.

Phần 1: Code để in với các yêu cầu sau:
1. Lưu active sheet đó ra thành 1 file pdf theo tên và có mật khẩu mở theo dữ liệu ở ô cung cấp
2. Định dạng nội dung chuyển là như trang in excel đã căn chỉnh vừa vặn
2. Đường dẫn là nơi lưu workbook của nó. (hiện có dùng lệnh chrdir mà không thành công)

Phần 2: Điều chỉnh tự động theo nhu cầu
.1. Chế độ 1 là Save theo từng số thứ tự: Mỗi khi bấm lưu, thì tăng số in lên 1 để có thể bấm tiếp lưu
Mục đích là để quan sát từng thông tin kiểm tra trước khi lưu.
2. Chế độ 2 là lưu hàng loạt theo số thứ tự đã nhập vào ô từ số - đến số: Lúc này không cần kiểm mà lưu ra hàng loạt
View attachment 220026

Sub Luu_pdf()

    chrdir = ThisWorkbook.Path
    tenfile = Sheets("PL").Range("S8")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=tenfile _
        , Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Xin cảm ơn cả nhà!

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

File mẫu

Lưu excel sang PDF co password bạn cài pm Nitro pro nó là comaddin

 

[be_09]

Chào cả nhà,

Tình hình mình đang phải giải quyết vấn đề như sau.
Nhưng không biết lập trình VBA, chỉ dùng record, nên nhờ các cao thủ chỉ thêm cho mình nhé.

Phần 1: Code để in với các yêu cầu sau:
1. Lưu active sheet đó ra thành 1 file pdf theo tên và có mật khẩu mở theo dữ liệu ở ô cung cấp
2. Định dạng nội dung chuyển là như trang in excel đã căn chỉnh vừa vặn
2. Đường dẫn là nơi lưu workbook của nó. (hiện có dùng lệnh chrdir mà không thành công)

Phần 2: Điều chỉnh tự động theo nhu cầu
.1. Chế độ 1 là Save theo từng số thứ tự: Mỗi khi bấm lưu, thì tăng số in lên 1 để có thể bấm tiếp lưu
Mục đích là để quan sát từng thông tin kiểm tra trước khi lưu.
2. Chế độ 2 là lưu hàng loạt theo số thứ tự đã nhập vào ô từ số - đến số: Lúc này không cần kiểm mà lưu ra hàng loạt
View attachment 220026

Sub Luu_pdf()

    chrdir = ThisWorkbook.Path
    tenfile = Sheets("PL").Range("S8")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=tenfile _
        , Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Xin cảm ơn cả nhà!

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

File mẫu

File của bạn đưa lên trống, không có dữ liệu mà đòi lưu hàng loạt thì lưu cái gì?

Nhiều thành viên hỏi thấy mắc cười quá:
- Hỏi và đưa File không có dữ liệu.
- File gốc một đằng hỏi lại một nẻo đưa tiêu đề và dữ liệu giả định không đúng vị trí cột.
- Dữ liệu giả định thì không giống với dữ liệu thực tế và dữ liệu giả định không đưa ra đủ các kiểu dữ liệu thực tế.
.........v.........v..................

Cuối cùng thì phán một câu xanh rờn "Sao em áp dụng vào File thực thế của em không được".

Kết luận:
Tôi gặp thành viên nào hỏi như đã liệt kê ở trên thì chạy trước cho chắc ăn, vì không rảnh để đu đeo theo những câu hỏi nữa vời.

 

[hoangexcell]

File của bạn đưa lên trống, không có dữ liệu mà đòi lưu hàng loạt thì lưu cái gì?

Nhiều thành viên hỏi thấy mắc cười quá:
- Hỏi và đưa File không có dữ liệu.
- File gốc một đằng hỏi lại một nẻo đưa tiêu đề và dữ liệu giả định không đúng vị trí cột.
- Dữ liệu giả định thì không giống với dữ liệu thực tế và dữ liệu giả định không đưa ra đủ các kiểu dữ liệu thực tế.
.........v.........v..................

Cuối cùng thì phán một câu xanh rờn "Sao em áp dụng vào File thực thế của em không được".

Kết luận:
Tôi gặp thành viên nào hỏi như đã liệt kê ở trên thì chạy trước cho chắc ăn, vì không rảnh để đu đeo theo những câu hỏi nữa vời.

Người ta đâu có hỏi gì về dữ liệu ở trong đâu mà xem làm gì? mà chuyện người nọ sao lại gắn cho người này chớ

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

Nitro pro

hay đấy mà tốn tiền hàng tháng luôn ko có đủ để trả rồi Mà code làm sao nữa cơ!?

 

[be_09]

Người ta đâu có hỏi gì về dữ liệu ở trong đâu mà xem làm gì? mà chuyện người nọ sao lại gắn cho người này chớ

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

hay đấy mà tốn tiền hàng tháng luôn ko có đủ để trả rồi Mà code làm sao nữa cơ!?

Tôi thấy thế nào thì nêu thế ấy dựa vào câu này ở bài 1 " 2. Chế độ 2 là lưu hàng loạt theo số thứ tự đã nhập vào ô từ số". Nên tôi mới nêu nội dung ở bài 4, nếu bạn thích thì tôi sẽ góp ý tiếp, còn không thích thì chờ thành viên nào hiểu được ý của bạn thì nhào vô giúp.

Còn tôi thì chạy trước cho chắc ăn.

 

[hoangexcell]

Tôi thấy thế nào thì nêu thế ấy dựa vào câu này ở bài 1 " 2. Chế độ 2 là lưu hàng loạt theo số thứ tự đã nhập vào ô từ số". Nên tôi mới nêu nội dung ở bài 4, nếu bạn thích thì tôi sẽ góp ý tiếp, còn không thích thì chờ thành viên nào hiểu được ý của bạn thì nhào vô giúp.

Còn tôi thì chạy trước cho chắc ăn.

ok cám ơn nhe. Đề bài đã rõ hết, chỗ nào chưa rõ thì cứ hỏi lại chứ đừng có lẫy. Cái nội dung chi tiết đâu cần biết, đã nói nó là vlookup theo số thứ tự, tất nhiên có 1 bảng dữ liệu khác link tới mà.