Ribbon按钮启用和禁止，如何通过Excel VBA 实现

nbtooyou

Ribbon按钮启用和禁止，如何通过Excel VBA 实现
在指定的工作表启动，不在指定的工作表禁止（灰色）  各位大神怎么实现？
如指定激活Sheet1  是启动状态    激活Sheet2 禁止状态
我之前看到一位大神点击按钮可以实现这个功能，但是我找了两天都没找到那个帖子

山菊花

1、在“模块1”中：
Public Rib As IRibbonUI '声明变量

Sub OL(ribbon As IRibbonUI)'在启动过程中给变量Rib赋值
    Set Rib = ribbon
End Sub

Sub GetEnabled(control As IRibbonControl, ByRef returnedVal) ’禁止/启用回调
    returnedVal = ActiveSheet.Name Like "#*月份"
End Sub

2、在ThisWorkbook 模块中：
’当切换工作表时，激活程序，刷新功能区（调用getEnabled回调程序）
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Rib.Invalidate
End Sub

3、在XML代码中：
给有关按钮添加属性：
getEnabled="getEnabled"   

nbtooyou

测试的文件

02761752696

试试
ribbon.ActivateTab "xxxx"

xdychina1

貌似有点复杂

nbtooyou

xdychina1 发表于 2024-3-1 15:39
貌似有点复杂

之前看到一位大神做出来了，我收藏了，但是我找不到了

nbtooyou

02761752696 发表于 2024-3-1 15:01
试试
ribbon.ActivateTab "xxxx"

没听懂，这个写在？

micch

你只的是部分按钮不可用，可以用visible显示和隐藏。如果是显示但不能用，那可以省事点直接在按钮对应的过程开始做个判断，设置一个公共变量来控制启动和禁止。

nbtooyou

micch 发表于 2024-3-1 18:15
你只的是部分按钮不可用，可以用visible显示和隐藏。如果是显示但不能用，那可以省事点直接在按钮对应的过 ...

大神，奖章好多呀，说的有道理，但是怎么用Excel  VBA 控制这个启动和禁止，我不是很懂ribbon。 回调里面改怎么写

micch

nbtooyou 发表于 2024-3-1 20:13
大神，奖章好多呀，说的有道理，但是怎么用Excel  VBA 控制这个启动和禁止，我不是很懂ribbon。 回调里面 ...

比如有个按钮，对应的过程是执行一个功能，过程里是
public ribbonisenabled as blooean
sub  过程名称()
    if not ribbonisenabled then exit sub
    正常执行功能的代码
end sub

只需要修改公共变量的值就可以控制按钮是否执行代码。
我不确定是不是有对应的属性可以控制，反正自己用变量控制是可行的

xdychina1

Private Sub GetmyEnabled(control As IRibbonControl, ByRef Enabled)
    Select Case control.ID
      
        Case Is = "XxkButton1" '系统选项卡不可见
            Enabled = ky
        Case Is = "XxkButton2" '系统选项卡可见
            Enabled = Not ky
    End Select
End Sub
是不是类似这个