hạn chế một số chức năng cho 1 cell

[minhbinhdinh]

chào mọi người.
ý tôi là thế này : khi nhấp chuột phải vào 1 cell thì hiện ra là cut/copy/paste... giờ tôi làm mờ một trong số chức năng này theo ý của mình mà không được.
Mong mọi người giúp đỡ.Cảm ơn mọi người
Chúc mọi người ngày 2/9 vui vẻ

 

[ndu96081631]

chào mọi người.
ý tôi là thế này : khi nhấp chuột phải vào 1 cell thì hiện ra là cut/copy/paste... giờ tôi làm mờ một trong số chức năng này theo ý của mình mà không được.
Mong mọi người giúp đỡ.Cảm ơn mọi người
Chúc mọi người ngày 2/9 vui vẻ

Ví dụ code dưới đây sẽ vô hiệu hóa mục Copy khi bạn click phải tại vùng A1:E10

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Application.CommandBars("Cell").Controls("[B][COLOR=Red]Copy[/COLOR][/B]").Enabled = _
                    Intersect([[B][COLOR=Red]A1:E10[/COLOR][/B]], Target) Is Nothing
End Sub

Ví dụ code dưới đây sẽ vô hiệu hóa mục Paste khi bạn click phải tại vùng C5:F20

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Application.CommandBars("Cell").Controls("[COLOR=Red][B]Paste[/B][/COLOR]").Enabled = _
                    Intersect([[B][COLOR=Red]C5:F20[/COLOR][/B]], Target) Is Nothing
End Sub

Muốn khác hơn, bạn tự tùy biến nhé

 

[minhbinhdinh]

cảm ơn bạn đã đọc và có ý giúp. Nhưng bạn để ý một tí là mình đưa đề tài vào khu lập trình nên chắc là mình phải biết 1 tí về VBA nên mới mong bạn giúp tận tình hơn

 

[ndu96081631]

cảm ơn bạn đã đọc và có ý giúp. Nhưng bạn để ý một tí là mình đưa đề tài vào khu lập trình nên chắc là mình phải biết 1 tí về VBA nên mới mong bạn giúp tận tình hơn

Chưa hiểu bạn muốn sao nữa
Nếu đã biết lập trình thì cứ việc copy code rồi quăng vào cửa sổ VBE là xong chứ gì

 

[minhbinhdinh]

không. minh không nói anh nduxxx mà nói bạn gì kia, bạn giúp gì mà " code VB " thì đố mà ai biết làm.
Còn hình như code anh cho mình khi bấm chuột phải nó không có biểu hiện gì đâu.