Disable Right Click lên Sheet Tabs để xóa sheet (1 người xem)

[minhtungph]

- Chào các bạn, vấn đề mình đưa ra không cho người khác right click lên sheet để xóa sheet, mình đã tìm được hướng giải quyết với code sau:

Application.CommandBars("Ply").Enabled = False

- Tuy nhiên mình muốn khi Right Click lên Sheet tabs thì vẫn hiện CommandBars("Ply"), chỉ không cho click vào nút Delete, mình tìm được code sau đây, tuy nhiên nó không hoạt động trên excel 2013

Application.CommandBars.FindControl(ID:=847).Enabled = False
Application.CommandBars("Ply").Controls("Delete").Enabled = False

- Mình đã test thì thấy ID của lệnh Delete là 847, nhưng nó không hoạt động, bạn nào có kinh nghiệm trong vụ này hỗ trợ mình nha, mình cám ơn.

 

[minhtungph]

thầy @ndu96081631 có cách nào không giúp em với.

 

[minhtuan55]

dể ẹt , dấu thanh kéo không cho thấy sheet là ok

 

[Hai Lúa Miền Tây]

- Chào các bạn, vấn đề mình đưa ra không cho người khác right click lên sheet để xóa sheet, mình đã tìm được hướng giải quyết với code sau:

Application.CommandBars("Ply").Enabled = False

- Tuy nhiên mình muốn khi Right Click lên Sheet tabs thì vẫn hiện CommandBars("Ply"), chỉ không cho click vào nút Delete, mình tìm được code sau đây, tuy nhiên nó không hoạt động trên excel 2013

Application.CommandBars.FindControl(ID:=847).Enabled = False
Application.CommandBars("Ply").Controls("Delete").Enabled = False

- Mình đã test thì thấy ID của lệnh Delete là 847, nhưng nó không hoạt động, bạn nào có kinh nghiệm trong vụ này hỗ trợ mình nha, mình cám ơn.

Bỏ trong sự kiện Worksheet_Activate của sheet mà mình muốn ngăn xóa bằng cách click phải chuột

Private Sub Worksheet_Activate()
    CommandBars("Ply").Enabled = False
End Sub