彰化一整天的論壇

 找回密碼
 立即註冊
查看: 73|回復: 0

【轉貼】恢復滑鼠右鍵刪除的功能語法

[複製鏈接]
發表於 2018-4-13 09:54:38 | 顯示全部樓層 |閱讀模式
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i, ii, x, e
  4.     For i = 1 To Application.CommandBars.Count
  5.         If Application.CommandBars(i).Type = msoBarTypePopup Then
  6.             x = x + 1
  7.             Cells(x, 1) = Application.CommandBars(i).Name
  8.             Cells(x, 2) = Application.CommandBars(i).NameLocal
  9.             Cells(x, 3) = Application.CommandBars(i).ID
  10.             ii = 1
  11.             For Each e In Application.CommandBars(i).Controls
  12.                 If InStr(e.Caption, "刪除(&D)...") Then
  13.                     Cells(x, ii + 3) = e.Caption
  14.                     Cells(x, ii + 4) = e.ID
  15.                 End If
  16.             Next
  17.         End If
  18.     Next
  19. End Sub
  20. Sub Ex1()
  21. Dim Bar As CommandBarControls, xId As Integer, A As Variant
  22.     xId = 292 '293,294   看看是哪一個id
  23.     Application.CommandBars.FindControls(ID:=xId).Item(1).Enabled = False
  24.     Set Bar = Application.CommandBars.FindControls(ID:=xId)
  25.     '************************應證 EX程式  Id = 292,293,294  找到的 "刪除(&D)..."
  26.     For Each A In Application.CommandBars.FindControls(ID:=xId)
  27.         Debug.Print A.Caption, A.ID
  28.     Next
  29.     '*********************
  30.     Stop   '看是否已停止使用
  31.     Application.CommandBars.FindControls(ID:=xId).Item(1).Enabled = True  '恢復使用

  32. End Sub
  33. Sub Exe()
  34.   Application.CommandBars("CELL").Reset
  35. End Sub
複製代碼

文章來源: http://forum.twbts.com/viewthread.php?tid=20675&highlight=
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-7-17 13:38 , Processed in 0.117029 second(s), 10 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表