Không cho paste dữ liệu vào ô đã có số liệu

[syquyen1987]

Kính gửi các Anh!

Những ô chứa dữ liệu trong một Sheet, khi sửa dữ liệu thì tôi muốn nhập bằng tay (không được paste dữ liệu), để tránh trường hợp không kiểm soát được dữ liệu khi sửa dữ liệu. Còn những ô trống (blank) thì được paste dữ liệu vào, mục đích là nhập liệu nhanh (trường hợp này không sợ bị rối loạn như sửa các ô có dữ liệu)

Các Anh xem có cách nào đáp ứng được điều đó không ạ

Tôi xin cảm ơn ạ

 

[htin1997]

...

Thủ công một tí sau mỗi lần nhập
Bước 1: Bôi đen cả sheet→Ctrl+1→qua thẻ protection→tick vào Locked.
Bước 2: Bôi đen vùng nhập dữ liệu→F5→Special...→Tích Blank→OK
Bước 3: Nhấn Ctrl+1→qua thẻ protection→Bỏ tick Locked.
Bước 4: Khoá sheet.
Còn VBA thì em chắc là cũng có nhiều cách anh chị sẽ giới thiệu, tuy nhiên thường nó không có ý nghĩa khi file này dùng trên nhiều máy, có máy disable VBA cũng chịu thua.

 

[syquyen1987]

Thủ công một tí sau mỗi lần nhập
Bước 1: Bôi đen cả sheet→Ctrl+1→qua thẻ protection→tick vào Locked.
Bước 2: Bôi đen vùng nhập dữ liệu→F5→Special...→Tích Blank→OK
Bước 3: Nhấn Ctrl+1→qua thẻ protection→Bỏ tick Locked.
Bước 4: Khoá sheet.
Còn VBA thì em chắc là cũng có nhiều cách anh chị sẽ giới thiệu, tuy nhiên thường nó không có ý nghĩa khi file này dùng trên nhiều máy, có máy disable VBA cũng chịu thua.

Cảm ơn mọi người đã đọc thông tin ạ

Tôi đã tìm được tài liệu rồi, cụ thể coding trong Sheet cần muốn thực hiện như sau:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Len(ActiveCell) > 0 Then
    Application.CutCopyMode = False
    'Application.OnKey "^c", ""
    Application.CellDragAndDrop = False
Else
    Application.CellDragAndDrop = True
    Application.CutCopyMode = True

End If

End Sub