Giúp code không cho Ctrl + D ( FillDown ) trong 1 vùng (1 người xem)

[congnguyen88]

Mình muốn thì dụ trong vùng A1: A100 không cho người dùng nhấn phím Ctrl + D để copy dữ liệu xuống dưới ( FillDown ) . nghĩa là nhấn phím Ctrl + D không có tác dụng gì cả

 

[Hau151978]

Bạn tạo macro bất kỳ rồi gán hot key là Ctrl-D.

 

[Quang_Hải]

Bạn tạo macro bất kỳ rồi gán hot key là Ctrl-D.

Vậy ngoài vùng đó thì sao? Chiêu này hơi kỳ kỳ à nghen.
Thêm nữa là Bác Bill có cho mình gán vậy không?

 

[Hau151978]

Vậy ngoài vùng đó thì sao? Chiêu này hơi kỳ kỳ à nghen.
Thêm nữa là Bác Bill có cho mình gán vậy không?

Nếu bác muốn chỉ một vùng nào đó không cho fill down (VD A1:A100) thì gán hot key Ctrl-D cho macro
Sub a()
If selection.address=range("A1:A100").address then selection.formula=selection.cells(1,1).formula
End Sub

 

[Quang_Hải]

Nếu bác muốn chỉ một vùng nào đó không cho fill down thì gán hot key Ctrl-D cho macro
Sub a()
Dim c As Range
if intersect(range("A1:A100"), selection) is nothing then 'hoặc lệnh so sánh range gì đó
For Each c In Selection
c.Formula = Selection.Cells(1, 1).Formula
Next
end if
End Sub

Để xem chủ thớt có ý kiến gì không chứ mình cứ thấy nó sao sao ấy. Chứ Ctrl D là của Bác Bill độc quyền rồi, xài ké là không ổn lắm.

 

[Quang_Hải]

Mình muốn thì dụ trong vùng A1: A100 không cho người dùng nhấn phím Ctrl + D để copy dữ liệu xuống dưới ( FillDown ) . nghĩa là nhấn phím Ctrl + D không có tác dụng gì cả

Mình đoán là bạn đang dùng Validation để kiểm soát gì đó khi nhập dữ liệu. Nếu đúng thế thì đâu cần phải dùng cách này.

 

[congnguyen88]

Vậy ngoài vùng đó thì sao? Chiêu này hơi kỳ kỳ à nghen.
Thêm nữa là Bác Bill có cho mình gán vậy không?

chỉ trong vùng chỉ định, ngoài vùng thì vẫn bình thường

Lý do làm : mình copy tên hàng và đơn giá từ vùng A sang Vùng B
Vùng B mình không cho người ta sửa đơn giá sau khi copy từ vùng A,
Vùng B phải mở Protect Sheet và phải cho người ta bôi đen ( do cho người ta bôi đen nên không thể làm cái sự kiện SelectionChange được )

Và túm lại 1 cách tổng quát. Mình muốn cho người ta vẫn select chọn vào ô đó (A1:A100) nhưng không cho người ta nhấn phím delete để xóa hay chỉnh sửa gì hết và cũng không cho nhấn phím Ctrl + D để copy xuống ô bên dưới,và ô đó phải mở Protect Sheet