Cách làm biến menu định dạng trong Popup menu của Excel 2007?

[PhanTuHuong]

Trong Excel 2003 không có kiểu định dạng này khi bấm phải chuột, tôi muốn bỏ nó đi trong Excel 2007 nhưng không được (phần bao màu đỏ):

 

[BNTT]

Cái đó là một ưu điểm của Excel 2007, mà với riêng mình, thì lại rất thích nó... Không hiểu sao Hướng lại muốn bỏ đi? Nó có ảnh hưởng gì đến mình đâu mà ngứa mắt? Chọn xong lệnh, bấm chuột ra chỗ khác là nó biến mà?

 

[PhanTuHuong]

Không phải bác ạ, khi em xây dựng chương trình xong thì chức năng này không cần nữa, nhìn "ngứa mắt". Khi sử dụng chức năng protect sheet thì nó biến mất nhưng không hay lắm.

 

[BNTT]

Vụ án này chắc phải gửi đơn sang hỏi Microsoft thôi Hướng à. Bảo họ cho tui một cái Option để chống ngứa mắt.
Nhưng có lẽ, nó cũng giống như vụ muốn BKAV đừng có xóa macro nữa, đơn kiện của mình sẽ nằm trong Hậu viên mà thôi...

 

[khongbietso]

Search thì thấy có cái option phía dưới để bật tắt cái menu formating
Tôi không cài 2007 nhưng chạy bản portable thì thấy bật hay tắt cũng khôgn thay đổi, mini toolbar vẫn hiện ra.
Ghi macro thì thấy thấy nó thế này

Sub Macro1()
'
' Macro1 Macro
'
  Application.ShowSelectionFloaties = False
End Sub

Sub MenuFloaties()
Application.ShowSelectionFloaties = False
Application.ShowMenuFloaties = False
MsgBox "ShowMenuFloaties = " & Application.ShowMenuFloaties
MsgBox "ShowSelectionFloaties = " & Application.ShowMenuFloaties
End Sub

Hình như option này bị lỗi chạy thử cái sub MenuFloaties mà cũng không thay đổi search google cũng thấy bảo vậy. Ai không dùng portable test cho cái.

 

[rollover79]

Em không biết là có Option nào để ẩn nó đi hay không, nhưng nếu bác dùng VBA thì có thể dùng tạm cách này xem sao.

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Excel.CommandBars("Cell").ShowPopup
End Sub

To khongbietso: Cái mini toolbar đấy là khi ta chọn 1 đoạn text trong 1 cell chứ không phải là RightClick menu.

 

[PhanTuHuong]

Cái khó là CommandBars("Cell") không chứa đối tượng cần bỏ trên:

'Liệt kê các Control trong CommandBars("Cell")
Sub CommandCell()
    Dim Con_trol As CommandBarControl
    For Each Con_trol In CommandBars("Cell").Controls
        MsgBox Con_trol.Caption
    Next
End Sub

Cho dù xoá hết control trong CommandBars("Cell") vẫn hiện ra như hình ở dưới, có thể nó không thuộc CommandBars("Cell") quản lý. Excel 2003 thì không có vấn đề gì

'Xoá toàn bộ các Control trong CommandBars("Cell")
Sub DelCommandCell()
    Dim Con_trol As CommandBarControl
    For Each Con_trol In CommandBars("Cell").Controls
        Con_trol.Delete
    Next
End Sub

 

[rollover79]

Cái khó là CommandBars("Cell") không chứa đối tượng cần bỏ trên:

'Liệt kê các Control trong CommandBars("Cell")
Sub CommandCell()
    Dim Con_trol As CommandBarControl
    For Each Con_trol In CommandBars("Cell").Controls
        MsgBox Con_trol.Caption
    Next
End Sub

Cho dù xoá hết control trong CommandBars("Cell") vẫn hiện ra như hình ở dưới, có thể nó không thuộc CommandBars("Cell") quản lý. Excel 2003 thì không có vấn đề gì

'Xoá toàn bộ các Control trong CommandBars("Cell")
Sub DelCommandCell()
    Dim Con_trol As CommandBarControl
    For Each Con_trol In CommandBars("Cell").Controls
        Con_trol.Delete
    Next
End Sub

Bác đã thử đoạn code của em chưa vậy?

 

[PhanTuHuong]

Bác đã thử đoạn code của em chưa vậy?

Tôi đã thử, OK rồi!!!!
Chưa hiểu rõ kiểu điều khiển này lắm, có thể Excel.CommandBars("Cell").ShowPopup thuộc kiểu menu cũ

 

[rollover79]

Tôi đã thử, OK rồi!!!!
Chưa hiểu rõ kiểu điều khiển này lắm, có thể Excel.CommandBars("Cell").ShowPopup thuộc kiểu menu cũ

Excel.CommandBars("Cell") chính là cái menu popup khi click phải chuột vào 1 cell từ các phiên bản cũ đã có rồi, đến 2007 vẫn vậy. Chỉ có điều cái popup format kia thì em chưa biết nó là cái gì. Vậy nên ta bắt trong sự kiện Before_RightClick. Cancel=True là để hủy sự kiện RightClick đi rồi Show Excel.CommandBars("Cell") cái lên.

 

[ngngocnguyen]

Xuất hiện lệnh lạ trong menu chuột phải

Nhờ các cao thủ chỉ giáo:
Tự nhiên các file excel của mình đều xuất hiện các lệnh lạ này, mình không biết từ đâu ra, có thể trong các file từ trên mạng mới tải về. Mình xóa hết macro, các VBA project, cùng vẫn không xong, nhờ các bạn giúp mình xóa bớt các lệnh trong menu chuột phải dùm, mình gửi hình đính kèm
Cám ơn mọi người.