Giúp em tạo password in?

[keeponlylove]

Em có 1 bản excel,em muốn tạo ra 1 cách là:khi có pass thì in ra bình thường,còn khi không có pass thì vẫn in ra nhưng trên bản in có thêm 1 dòng chữ gì đó.(vd:bản chưa đăng ký).Thank.

 

[nvson]

Vào VBA, nhấn đúp chuột vào ThisWorkbook rồi thêm đoạn code sau:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.ProtectContents Then
        ActiveSheet.PageSetup.CenterHeader = "Ban chua dang ky"
    Else
        ActiveSheet.PageSetup.CenterHeader = ""
    End If
End Sub

 

[anhtuan1066]

Sẳn đây cho hỏi: Trong Excel có hàm nào xác định dc tình trạng Protect của sheet ko? Đại khái sẽ cho giá trị TRUE nếu sheet dc Protect và ngược lại!
ANH TUẤN

 

[Mr Okebab]

Sẳn đây cho hỏi: Trong Excel có hàm nào xác định dc tình trạng Protect của sheet ko? Đại khái sẽ cho giá trị TRUE nếu sheet dc Protect và ngược lại!
ANH TUẤN

Bác tham khảo :

Sheet1.ProtectionMode

 True if user-interface-only protection is turned on.
To turn on user interface protection
use the Protect method with the UserInterfaceOnly argument set to True.
Read-only Boolean.

Thân!

 

[anhtuan1066]

Cám ơn Bắp! Nhưng ý mình hỏi là trong Excel có hàm nào như thế ko? Theo như Bắp trả lời ở trên thì chắc là ko có rồi nhỉ? Vậy Bắp có thể tạo giùm 1 UDF có chức năng này ko? Kết quả = TRUE là có pass, FALSE là ko!
Vì nếu như có 1 hàm như vậy thì tôi sẽ làm bài trên theo 1 hướng khác mà ai cũng hiểu dc...
Cám ơn!
ANH TUẤN

 

[tedaynui]

Em co 1file excel,khi đăng nhập phải khai acc và pass,em muốn khi có pass thì in được bình thường,khi không có pass thì vẫn vào được nhưng khi in thì nó sẽ hiện lên 1 dòng vào bản in VD :bản chưa đăng ký.ai biết cách làm chỉ bảo em với.thank.

Bạn dán đoạn code sau vào This Workbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    MsgBox "Day la File chua dang ky ban quyen !"
End Sub

TDN

 

[Mr Okebab]

Cám ơn Bắp! Nhưng ý mình hỏi là trong Excel có hàm nào như thế ko? Theo như Bắp trả lời ở trên thì chắc là ko có rồi nhỉ? Vậy Bắp có thể tạo giùm 1 UDF có chức năng này ko? Kết quả = TRUE là có pass, FALSE là ko!
Vì nếu như có 1 hàm như vậy thì tôi sẽ làm bài trên theo 1 hướng khác mà ai cũng hiểu dc...
Cám ơn!
ANH TUẤN

Bác tham khảo ở đây nhé :

http://tinyurl.com/2bzopp

Thân!

 

[ongtrungducmx25]

zậy phải có ID và PAssword thì phải khai báo vào đâu nhỉ

 

[tedaynui]

zậy phải có ID và PAssword thì phải khai báo vào đâu nhỉ

Ý của anh thầy thế nào ? anh thầy nói rõ hơn đi, ngắn gọn thế em không hiểu ?

Thân!

 

[ongtrungducmx25]

ý của thầy là dùng đoạn có để mô tả thêm khi mình muốn in thì phải có tên và mật khẩu để đăng nhập thì nó mới in được nhé! thông thường thì không in được

 

[tedaynui]

ý của thầy là dùng đoạn có để mô tả thêm khi mình muốn in thì phải có tên và mật khẩu để đăng nhập thì nó mới in được nhé! thông thường thì không in được

Em nghĩ đòi tên và mật khẩu là khi đăng nhập, chứ đã cho đăng nhập rồi đợi đến lúc in mới đòi đăng nhập làm chi. Giả sử không cho đăng nhập thì copy sang sheet khác hay Workbook khác mà in cũng được vậy. Tóm lại hình như yêu cầu hơi bị ngược. Nhưng ý anh thầy muốn vậy thì cũng đơn giản thôi.

File đính kèm là VB mà ???

Thân!

 

[ongtrungducmx25]

zậy có thể bổ sung vào file của thầy được không "phước" mỗi lần in ra thì phải ID và Ps

 

[tedaynui]

zậy có thể bổ sung vào file của thầy được không "phước" mỗi lần in ra thì phải ID và Ps

Em gởi thầy File ví dụ này thầy tham khảo nha.

Thân!