Xin cách khóa chức năng in excel mà chỉ cho in băng VBA

Liên hệ QC

duchoa89

Thành viên mới
Tham gia
11/10/16
Bài viết
47
Được thích
1
Xin nhờ các anh chị trong diễn dàn chỉ dùm! Em muốn khóa toàn bộ các kiểu in của excel sẵn có như (ctrl+p) bấm trên bouuton.... mà chỉ sử dụng nút lệnh VBA mới in được. Mong các anh giúp đỡ.
 
Xin nhờ các anh chị trong diễn dàn chỉ dùm! Em muốn khóa toàn bộ các kiểu in của excel sẵn có như (ctrl+p) bấm trên bouuton.... mà chỉ sử dụng nút lệnh VBA mới in được. Mong các anh giúp đỡ.

- Không biết bạn có mục đich gì, khi khóa các chức năng được Build-in sẵn trong Excel. Mà buộc người dùng phải in bằng VBA do bạn lập trình.
 
- Không biết bạn có mục đich gì, khi khóa các chức năng được Build-in sẵn trong Excel. Mà buộc người dùng phải in bằng VBA do bạn lập trình.
Vâng ạ! trả là em đanh sử dụng 1 file excel để in hóa đơn bán lẻ và có áp dụng các code nhập liệu tổng hợp!
Vấn đề là nếu in bằng nút lệnh VBA thì sẽ có dữ liệu! (Ý là nếu thu ngân tự đánh vào rồi in thông thường rùi xóa đi thì vẫn có phiếu bán cho khách và không có dữ liệu nhập vào. Tránh phát sinh tiêu cực mà anh. hi)
 
Bạn trả lời câu hỏi bằng 1 câu hỏi. Có câu trả lời rồi không biết bạn có giúp được không?
Có nhiều lý do mà người ta cần làm thế. Cụ thể là người ta muốn kiểm tra điều kiện trước khi in (điều kiện nội dung bản in, điều kiện phân quyền
 
Em xin chia sẻ file để a xem có cách nào giúp em với! em còn muốn sheet2 và 3 khi đã nhập liệu vào rùi thì ko sửa được nữa!
 

File đính kèm

  • thutien.xlsm
    390.6 KB · Đọc: 13
Vâng ạ! trả là em đanh sử dụng 1 file excel để in hóa đơn bán lẻ và có áp dụng các code nhập liệu tổng hợp!
Vấn đề là nếu in bằng nút lệnh VBA thì sẽ có dữ liệu! (Ý là nếu thu ngân tự đánh vào rồi in thông thường rùi xóa đi thì vẫn có phiếu bán cho khách và không có dữ liệu nhập vào. Tránh phát sinh tiêu cực mà anh. hi)

- Mình thấy cái thuộc về quy trình kiểm soát hơn là dùng 1 cái chức năng In để kiểm soát.Bạn thấy sao?

Em xin chia sẻ file để a xem có cách nào giúp em với! em còn muốn sheet2 và 3 khi đã nhập liệu vào rùi thì ko sửa được nữa!

- Bạn không nên chen vào Thread của đề tài khác.
 
Chỉnh sửa lần cuối bởi điều hành viên:
- Bạn không nên chen vào Thread của đề tài khác.
Đúng rội ạ! đó là ý muốn tiếp theo của em để kiểm xoát kế toán! hi. Anh nào có ý kiến gì giúp em với ạ! giờ chỉ cần không cho in bừa bãi là tốt lắm rùi ạ!
code để xuất ra PDF chính là để em kiểm xoát các lần in ! :D
Thật ra quy mô làm việc của chỗ em còn nhỏ và không chuyên nghiệp! quy trình kiểm xoát cũng có nhưng để đưa ra các công cụ hữu ích và ngăn chặn được tiêu cực chính là giúp nhân viên đó phát triển và có thái độ làm việc tận tâm!
 
Xin nhờ các anh chị trong diễn dàn chỉ dùm! Em muốn khóa toàn bộ các kiểu in của excel sẵn có như (ctrl+p) bấm trên bouuton.... mà chỉ sử dụng nút lệnh VBA mới in được. Mong các anh giúp đỡ.
(Dùng phương pháp phần cứng).
Lấy cái gì "cứng cứng" cậy bỏ cái phím "P" đi (hoặc nếu cần đẹp thì lấy keo 502 đổ vô phím đó).
Nhanh, gọn!
 
Vậy ra chắc hơi khó khăn đây! thế cho em chuyển chủ đề 1 chút! giờ nếu in bằng ctrl+P hoặc trên button thì có code nào tạo được kèm 1 bản in PDF lưu ko nhỉ? để kiểm xoát số lần và nội dung đã in đó!
 
Hiện tại em đang muốn xin code tắt và bật chức năng ngăn chặn in này ! anh nào giúp em với. Ý là bật cho in ->> (code nhập liệu) -->> tắt không cho in. Anh nào giúp em với
Private Sub workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Sheet1", "Sheet2"
Cancel = True
MsgBox "Sorry, you cannot print this sheet from this workbook", _
vbInformation
End Select
End Sub
 
- Mình thấy cái thuộc về quy trình kiểm soát hơn là dùng 1 cái chức năng In để kiểm soát.Bạn thấy sao?



- Bạn không nên chen vào Thread của đề tài khác.
Hiện tại em đang muốn xin code tắt và bật chức năng ngăn chặn in này ! anh nào giúp em với. Ý là bật cho in ->> (code nhập liệu) -->> tắt không cho in. Anh nào giúp em với
Private Sub workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Sheet1", "Sheet2"
Cancel = True
MsgBox "Sorry, you cannot print this sheet from this workbook", _
vbInformation
End Select
End Sub
 
Web KT
Back
Top Bottom