Anh chị cho em xin đoan code trong VBA để tắt lênh cut và giữ nguyên lênh copy,paste trong bang tinh excel voi ạ.

[Lê Kim Nhật]

Anh chị cho em xin đoan code trong VBA để tắt lênh cut và giữ nguyên lênh copy,paste trong bang tinh excel voi ạ.

 

[phulien1902]

Anh chị cho em xin đoan code trong VBA để tắt lênh cut và giữ nguyên lênh copy,paste trong bang tinh excel voi ạ.

Tôi mới biết :
Application.CutCopyMode=False

 

[Quang_Hải]

Anh chị cho em xin đoan code trong VBA để tắt lênh cut và giữ nguyên lênh copy,paste trong bang tinh excel voi ạ.

Copy đoạn code này cho vào trong ThisWorkBook. Phải là trong ThisWorkBook mới được nha

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Select Case Application.CutCopyMode
Case Is = False
Case Is = xlCopy
Case Is = xlCut
Application.CutCopyMode = False
End Select
End Sub

Bài đã được tự động gộp: 23/8/18

Tôi mới biết :
Application.CutCopyMode=False

Đoạn này sẽ vô hiệu hóa luôn của chức năng copy à nha

 

[Lê Kim Nhật]

Copy đoạn code này cho vào trong ThisWorkBook. Phải là trong ThisWorkBook mới được nha

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Select Case Application.CutCopyMode
Case Is = False
Case Is = xlCopy
Case Is = xlCut
Application.CutCopyMode = False
End Select
End Sub

Bài đã được tự động gộp: 23/8/18

Đoạn này sẽ vô hiệu hóa luôn của chức năng copy à nha

Copy đoạn code này cho vào trong ThisWorkBook. Phải là trong ThisWorkBook mới được nha

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Select Case Application.CutCopyMode
Case Is = False
Case Is = xlCopy
Case Is = xlCut
Application.CutCopyMode = False
End Select
End Sub

Bài đã được tự động gộp: 23/8/18

Đoạn này sẽ vô hiệu hóa luôn của chức năng copy à nha[/QUOT
Cam On ban nhe.
minh dung doan code dau tien va da khoa cut, copy va passe dung bt ạ

 

[ndu96081631]

Copy đoạn code này cho vào trong ThisWorkBook. Phải là trong ThisWorkBook mới được nha

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Select Case Application.CutCopyMode
Case Is = False
Case Is = xlCopy
Case Is = xlCut
Application.CutCopyMode = False
End Select
End Sub

Nếu người ta không di chuyển Selection thì sao? Tình huống thế này:
- Người ta đặt con trỏ chuột tại cell A1 của sheet1
- Xong, người ta sang sheet2, quét chọn vùng tuy ý rồi Ctrl + X
- Chuyển sang sheet1, bấm Ctrl + V
???!!!
--------------------------
Cái chuyện cấm cut, copy, paste xem ra không phải chuyện đơn giản
Thắc mắc là: Tác giả cần vụ này để làm gì? Tôi đoán có thể sợ người dùng thao tác copy nhưng lộn sang cut khiến cho định dạng bảng tính bị "phá vỡ"?
Quan điểm của tôi: đã làm việc trên Excel, đương nhiên phải được huấn luyện kỹ năng thao tác rồi. Nếu làm sai ---> Cảnh cáo hoặc chuyển sang bộ phận khác mà làm, tránh ảnh hưởng đến "đồng đội"