Giúp code không cho Cut, các thao tác còn lại OK (2 người xem)

[congnguyen88]

Mình có 1 bảng tính Excel, mình muốn trong vùng A1:A100 không cho Cut , các thao tác còn lại, copy, paste, nhập liệu........bình thường

 

[Kiều Mạnh]

Mình có 1 bảng tính Excel, mình muốn trong vùng A1:A100 không cho Cut , các thao tác còn lại, copy, paste, nhập liệu........bình thường

Bạn Vào Đây Tham khảo nha

 

[kuldokk]

Mình có 1 bảng tính Excel, mình muốn trong vùng A1:A100 không cho Cut , các thao tác còn lại, copy, paste, nhập liệu........bình thường

Bạn làm như sau với trường hợp dùng Ctrl + X để cut

1. Mở VBA Editor lên và trong ThisWorkBook nhập code sau:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)    
If Not Intersect(ActiveCell, Range("A1:A100")) Is Nothing Then
         With Application
            .OnKey "^x", "CutDisabled"
            .CellDragAndDrop = False
             If Application.CutCopyMode = xlCut then
                .CutCopyMode = False
             End If
          End With
    Else
        Application.OnKey "^x"
    End If
End Sub

2. Thêm 1 module vào và nhập code sau vào module đó:

Sub CutDisabled()
   'Inform user that the functions have been disabled
    MsgBox "Sorry!  Cutting has been disabled for this range!"
End Sub

Xem file để biết thêm chi tiết và ghé channel youtube của mình

 

[Kiều Mạnh]

Bạn làm như sau với trường hợp dùng Ctrl + X để cut

1. Mở VBA Editor lên và trong ThisWorkBook nhập code sau:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)    
If Not Intersect(ActiveCell, Range("A1:A100")) Is Nothing Then
         With Application
            .OnKey "^x", "CutDisabled"
            .CellDragAndDrop = False
             If Application.CutCopyMode = xlCut then
                .CutCopyMode = False
             End If
          End With
    Else
        Application.OnKey "^x"
    End If
End Sub

2. Thêm 1 module vào và nhập code sau vào module đó:

Sub CutDisabled()
   'Inform user that the functions have been disabled
    MsgBox "Sorry!  Cutting has been disabled for this range!"
End Sub

Xem file để biết thêm chi tiết và ghé channel youtube của mình

code của bạn vẫn cut paste bình thường trong vùng cấm mà

 

[congnguyen88]

Bạn làm như sau với trường hợp dùng Ctrl + X để cut

1. Mở VBA Editor lên và trong ThisWorkBook nhập code sau:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)    
If Not Intersect(ActiveCell, Range("A1:A100")) Is Nothing Then
         With Application
            .OnKey "^x", "CutDisabled"
            .CellDragAndDrop = False
             If Application.CutCopyMode = xlCut then
                .CutCopyMode = False
             End If
          End With
    Else
        Application.OnKey "^x"
    End If
End Sub

2. Thêm 1 module vào và nhập code sau vào module đó:

Sub CutDisabled()
   'Inform user that the functions have been disabled
    MsgBox "Sorry!  Cutting has been disabled for this range!"
End Sub

Xem file để biết thêm chi tiết và ghé channel youtube của mình

cảm ơn bạn, code của bạn đúng theo ý của mình rồi, nhưng mình muốn 1 vùng A1:A100 của sheets("data") thôi thì thay đổi chổ nào
If Not Intersect(ActiveCell, Sheets("data").Range("A1:A100")) Is Nothing Then

Mình thay đổi như trên được bạn ơi giúp mình với

 

[kuldokk]

code của bạn vẫn cut paste bình thường trong vùng cấm mà

code này như đã viết trong bài trả lời của mình, hạn chế "cut" bằng cách bấm Ctrl + X, nên nếu bạn dùng chuột phải > Cut thì vẫn được như bình thường.

 

[kuldokk]

code của bạn vẫn cut paste bình thường trong vùng cấm mà

code này như đã viết trong bài trả lời của mình, hạn chế "cut" bằng cách bấm Ctrl + X, nên nếu bạn dùng chuột phải > Cut thì vẫn được như bình thường.

cảm ơn bạn, code của bạn đúng theo ý của mình rồi, nhưng mình muốn 1 vùng A1:A100 của sheets("data") thôi thì thay đổi chổ nào
If Not Intersect(ActiveCell, Sheets("data").Range("A1:A100")) Is Nothing Then

Mình thay đổi như trên được bạn ơi giúp mình với

bạn chuyển Sheets("data") thành ActiveWorkbook.Sheets("data") thử xem nhé, mình chưa test