Board logo

標題: [發問] 請教恢復滑鼠右鍵刪除的功能語法 [打印本頁]
作者: PKKO    時間: 2018-4-8 12:31     標題: 請教恢復滑鼠右鍵刪除的功能語法

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

[attach]28508[/attach]
公司有一台電腦是這樣
無法按右鍵選擇刪除

有大大提供VBA語法可以恢復此功能嗎?
作者: naruto018    時間: 2018-4-9 16:05

回復 2# PKKO


    試試看
用於2007以下
  1. Application.CommandBars("Ply").Controls("刪除(&D)").Enabled = True
複製代碼
作者: Joforn    時間: 2018-4-9 19:00

Application.CommandBars("Ply").Reset
作者: PKKO    時間: 2018-4-9 22:55

回復 4# Joforn


    感謝大大,不過都無效耶= =
我的是OFFICE 2016 版本
作者: GBKEE    時間: 2018-4-10 09:38

本帖最後由 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  '恢復使用

  33. End Sub
  34. Sub Exe()
  35.   Application.CommandBars("CELL").Reset
  36. End Sub
複製代碼
作者: PKKO    時間: 2018-4-11 13:11

回復 6# GBKEE


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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)