Xin code ngăn cản copy, in, lưu dữ liệu excel sang file khác (1 người xem)

[tuanhienvu]

trong quá trình làm việc, có một số dữ liệu quan trọng không muốn người khác copy, in, hoặc lưu sang tên mới (nói chung là copy số liệu). Các bạn giúp mình với.... thanks

 

[nghiaphuc]

trong quá trình làm việc, có một số dữ liệu quan trọng không muốn người khác copy, in, hoặc lưu sang tên mới (nói chung là copy số liệu). Các bạn giúp mình với.... thanks

Vậy thì tốt nhất là đừng đưa file cho họ. Một khi chia sẻ file cho người khác thì dù bạn bảo mật kiểu gì cũng sẽ có người copy được dữ liệu của bạn. Vậy nên hãy rộng lòng đi bạn.

 

[mrjackie]

Tôi xin được đưa ra giải pháp (thực hiện được) giải quyết các yêu cầu của bạn như sau (thực hiện thế nào bạn có thể tham khảo thêm nguồn trên mạng):
1. Không muốn người khác copy:
* Protect sheet bằng password, không cho chọn các ô bị lock.
2. Không cho người khác in:
* Dùng đoạn code sau:

 Private Sub Workbook_BeforePrint(Cancel As Boolean)     
Dim PrintPassword As String     
Dim InBox As String     
PrintPassword = "password"     
InBox = InputBox(Prompt:="Nhap dung password de duoc in", Title:="Password in:")     
If InBox <> PrintPassword Then         
Cancel = True         
MsgBox "Sai Password" & vbCrLf & vbCrLf & "Ban khong co quyen in.", vbInformation         
Exit Sub     
Else         
Cancel = False     
End If 
End Sub

Người dùng muốn in phải có password được quy định theo biến Printpassword

3. Không cho save as? Nếu bạn làm được 2 phương án trên thì tôi nghĩ yêu cầu này không còn cần thiết nữa.

Chúc bạn thành công!