Nhờ mọi người viết giùm code không cho copy và cut dữ liệu.

[Manhhungstone]

Mình có một số cột và dòng trong sheet mình muốn không cho ai copy hoặc cut dữ liệu ở vùng này. còn các vùng khác của Sheet hoặc sheet khác vẫn copy và cut bình thường. nhờ mọi người viết giùm đoạn code hoặc có cách nào đó không cho copy hoặc cut vùng dữ liệu. xin cảm ơn nhiều.

 

[Manhhungstone]

nhờ anh chị em làm giùm mình với à/

 

[Manhhungstone]

chang co ai giup vay/

 

[Po_Pikachu]

Bài này có nhiều trên diễn đàn lắm bạn. Bạn đọc và tìm thêm sẽ thấy thôi.
http://www.giaiphapexcel.com/forum/showthread.php?22486-Không-cho-thực-hiện-lệnh-Cut-trong-excel
Thân.

 

[TongDe]

không biết làm theo yêu cầu của bạn nhưng có thể làm ngược lại
Chỉ cho sửa trong vùng chọn
Bạn bố trí lại dữ liệu và thử cách này coi.
Alt+F11
Chọn sheet cần khóa
Vào property
mục ScrollArea nhập G1:F17
Trở ra Excel
Chỉ có thể loanh quanh vùng địa chỉ trên
Chúc thành công !

 

[Manhhungstone]

Bạn ơi cho mình hỏi Vào property
mục ScrollArea nhập G1:F17
thì được rồi nhưng theo mình thì không thể ghi lại được, nếu tắt File và mở file lại thì phải làm lại. nhờ bạn viết cho mình đoạn code để khi mở file thì tự động tạo à/ cảm ơn bạn nhiều

 

[khoavu87]

Bạn ơi cho mình hỏi Vào property
mục ScrollArea nhập G1:F17
thì được rồi nhưng theo mình thì không thể ghi lại được, nếu tắt File và mở file lại thì phải làm lại. nhờ bạn viết cho mình đoạn code để khi mở file thì tự động tạo à/ cảm ơn bạn nhiều

bạn đang cần cái này chăng?

Private Sub Worksheet_Activate()
Me.ScrollArea = "g1:g17"
End Sub

copy vào sheet muốn dùng

 

[Manhhungstone]

cam on ban dung roi ban a/

 

[Manhhungstone]

bạn ơi mình làm đã copy vào sheet muốn khoá rồi nhưng vẫn thế à. tắt file khi mở lại nó vẫn không ghi lại được à. bạn kiểm tra lại giùm minh nhé/

 

[Po_Pikachu]

Bạn dùng code này xem sao. Lưu code trong ThisWorkbook nha.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.ScrollArea = "G1:G17"
End Sub

Thân.

 

[Manhhungstone]

bạn ơi mình đã làm. nhưng nó lại định dạng toàn bộ vùng của toàn bộ sheet trong File. mình chỉ muốn định dạng những vùng của sheet mình muốn thôi. bạn xem lại hộ mình nhé/ cảm ơn bạn