返回列表 上一主題 發帖

[發問] 請教恢復滑鼠右鍵刪除的功能語法

[發問] 請教恢復滑鼠右鍵刪除的功能語法

請教一下各位大大
我使用以下語法皆無反應
Application.CommandBars("Ply").Controls("刪除(D)").Enabled = True
要如何可以禁止或是恢復右鍵刪除的功能呢?
PKKO

S__26902547.jpg
2018-4-9 14:47

公司有一台電腦是這樣
無法按右鍵選擇刪除

有大大提供VBA語法可以恢復此功能嗎?
PKKO

TOP

回復 2# PKKO


    試試看
用於2007以下
  1. Application.CommandBars("Ply").Controls("刪除(&D)").Enabled = True
複製代碼

TOP

Application.CommandBars("Ply").Reset
世界那麼大,可我想去哪?

TOP

回復 4# Joforn


    感謝大大,不過都無效耶= =
我的是OFFICE 2016 版本
PKKO

TOP

本帖最後由 GBKEE 於 2018-4-10 09:39 編輯

回復 5# PKKO
2010 版
  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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 6# GBKEE


    感謝超版大大....完全成功...
我是用第二個sub的293這個id成功的恢復刪除列的功能
PKKO

TOP

        靜思自在 : 君子如水,隨方就圓,無處不自在。
返回列表 上一主題