Khóa chức năng DragDrop

[mymapmap]

Em sử dụng lệnh sau:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CellDragAndDrop = False
End Sub
Nhưng người sử dụng vào Tool/Option/Edit đánh vào checkBox Allow DragAndDrop thì chức năng CellDragAndDrop vẫn sử dụng bình thường
Xin Hỏi anh chị có cách nào Khóa hiệu quả hơn không?
Xin Cảm ơn.

 

[ndu96081631]

Em sử dụng lệnh sau:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CellDragAndDrop = False
End Sub
Nhưng người sử dụng vào Tool/Option/Edit đánh vào checkBox Allow DragAndDrop thì chức năng CellDragAndDrop vẫn sử dụng bình thường
Xin Hỏi anh chị có cách nào Khóa hiệu quả hơn không?
Xin Cảm ơn.

Thì bạn khóa luôn Tools\Options đi là xong!

CommandBars("Tools").Controls("Options...").Enabled = False

 

[mymapmap]

Thì bạn khóa luôn Tools\Options đi là xong!

CommandBars("Tools").Controls("Options...").Enabled = False

Chỉ khóa Tab Edit được không Bác ndu96081631?