Không cho nhấn chuột phải vào List

[khamha]

Chào các bạn,Các bạn cho hỏi là có cách nào không cho người dùng nhấn chuột phải vào vùng đã tạo List.Cảm ơn các bạn

 

[ptm0412]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set vung = Range("A1:A10")
If Not Intersect(Target, vung) Is Nothing Then Cancel = True
End Sub

Code đặt trong sheet cần chặn chuột phải. Code có tác dụng trong vùng A1:A10, sửa vùng lại theo yêu cầu của mình

 

[ndu96081631]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set vung = Range("A1:A10")
If Not Intersect(Target, vung) Is Nothing Then Cancel = True
End Sub

Code đặt trong sheet cần chặn chuột phải. Code có tác dụng trong vùng A1:A10, sửa vùng lại theo yêu cầu của mình

Em nghĩ vầy sẽ hợp lý hơn:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Dim i As Long
  With Target.Parent
    For i = 1 To .ListObjects.Count
      If Not Intersect(.ListObjects(i).Range, Target) Is Nothing Then Cancel = True
    Next
  End With
End Sub

Không quan tâm vùng nào, chỉ cần đó là LIST thì không cho click phải
Insert dòng cột hoặc dời List sang nơi khác cũng không cần phải sửa code

 

[ptm0412]

Hic, chả biết Khamha dùng Excel 2003 hay 2007, và cũng không biết "List" của Khamha là dùng chức năng "List" của 2003 (tức là 1 ListObject), hay đơn giản là 1 List (danh sách) các dữ liệu (Range).