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

山菊花

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"   

micch

哦，有getenable属性。

nbtooyou

山菊花 发表于 2024-3-1 22:17
1、在“模块1”中：
Public Rib As IRibbonUI '声明变量

老师很厉害，牛，感谢老师的指导

2324104030

感觉不太人性化哦！每次都要点击工作表，再点击按钮。为什么不改一下按钮呢，点击后将某个工作表置为当前，然后再运行程序，