Xóa commmand chuột phải

PTHhn

Yêu THVBA như điếu đổ
Hôm trước mình dùng thử cái Tool bán hàng của webkynang, mặc dù xóa đi rồi nhưng nó vẫn còn như thế này.
Bạn cần đăng nhập để thấy hình ảnh

Mình thấy họ thiết kế rất thiếu chuyên nghiệp. Khi đóng file thì phải xóa bỏ các thiết định của Tool đi.
Ai giúp mình xóa mấy cái command chuột phải của họ đi giùm cái được không.
 

Euler

Administrator
Thành viên BQT
Chết cười. Cho bạn thêm cách khác như sau:
1. Liệt kê hết các commanbars chuột phải:
Mã:
Sub Lietke_CommandBars_List()
  Dim i As Long
  Dim wb As Workbook

  Set wb = Workbooks.Add
  wb.Worksheets(1).Cells(1, 1) = "Caption"
 
  With Application.CommandBars("Cell").Controls
    For i = 1 To .Count
      wb.Worksheets(1).Cells(i + 1, 1) = .Item(i).Caption
      
    Next i
  End With

End Sub
2. Xóa các commandbars không cần thiết đi.
Ở trên, tên các commandbars đã được liệt kê trên cột A, bắt đầu từ ô A2.
Bạn chỉ giữ lại những commandbars nào mà bạn muốn xóa trên cột A.
Chạy thủ tục sau:
Mã:
Sub Delete_CommandBars_List()
  Dim i As Long, j As Long
  Dim s As String 
  With Application.CommandBars("Cell").Controls
    For i = .Count To 1 Step -1
        For j = 2 To 9 Step 1
            s = Workbooks("Book1").Sheets(1).Range("A" & j).Value 'Tên file và sheet file excel ở bước 1
            If .Item(i).Caption = s Then
                Application.CommandBars("Cell").Controls(s).Delete
            End If
        Next j
      
      
    Next i
  End With

End Sub
Tự ý thay đổi (thêm commandbars) mà cứ để đấy, không xóa (commandbars) đi khi người ta đóng file => ý tưởng thiết kế tồi, gây phiền hà cho người dùng.
 
Top