ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð«ì´_·Æ¹«¥kÁä§R°£ªº¥\¯à»yªk

[µo°Ý] ½Ð±Ð«ì´_·Æ¹«¥kÁä§R°£ªº¥\¯à»yªk

½Ð±Ð¤@¤U¦U¦ì¤j¤j
§Ú¨Ï¥Î¥H¤U»yªk¬ÒµL¤ÏÀ³
Application.CommandBars("Ply").Controls("§R°£(D)").Enabled = True
­n¦p¦ó¥i¥H¸T¤î©Î¬O«ì´_¥kÁä§R°£ªº¥\¯à©O?
PKKO


¤½¥q¦³¤@¥x¹q¸£¬O³o¼Ë
µLªk«ö¥kÁä¿ï¾Ü§R°£

¦³¤j¤j´£¨ÑVBA»yªk¥i¥H«ì´_¦¹¥\¯à¶Ü?
PKKO

TOP

¦^´_ 2# PKKO


    ¸Õ¸Õ¬Ý
¥Î©ó2007¥H¤U
  1. Application.CommandBars("Ply").Controls("§R°£(&D)").Enabled = True
½Æ»s¥N½X

TOP

Application.CommandBars("Ply").Reset
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

¦^´_ 4# Joforn


    ·PÁ¤j¤j,¤£¹L³£µL®Ä­C= =
§Úªº¬OOFFICE 2016 ª©¥»
PKKO

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-4-10 09:39 ½s¿è

¦^´_ 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, "§R°£(&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   ¬Ý¬Ý¬O­þ¤@­Ó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  §ä¨ìªº "§R°£(&D)..."
  26.     For Each A In Application.CommandBars.FindControls(ID:=xId)
  27.         Debug.Print A.Caption, A.ID
  28.     Next
  29.     '*********************
  30.     Stop   '¬Ý¬O§_¤w°±¤î¨Ï¥Î
  31.     Application.CommandBars.FindControls(ID:=xId).Item(1).Enabled = True  '«ì´_¨Ï¥Î

  32. End Sub
  33. Sub Exe()
  34.   Application.CommandBars("CELL").Reset
  35. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


    ·PÁ¶Wª©¤j¤j....§¹¥þ¦¨¥\...
§Ú¬O¥Î²Ä¤G­Ósubªº293³o­Óid¦¨¥\ªº«ì´_§R°£¦Cªº¥\¯à
PKKO

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD