如何在VBA中根据用户类型验证功能区按钮

Question

我有13个按钮可以由一个用户(教师(使用，其中另一种类型的用户(学生(可以使用9个。

我试过这个：

Sub GetEnabled(control As IRibbonControl, ByRef enabled)
Select Case control.ID
Case "Button2"
enabled = Not (estado)
Case "Button3"
enabled = Not (estado)
Case "Button4"
enabled = Not (estado)
Case "Button5"
enabled = Not (estado)
Case "Button6"
enabled = Not (estado)
Case "Button7"
enabled = Not (estado)
Case "Button8"
enabled = Not (estado)
Case "Button10"
enabled = Not (estado)
Case "Button11"
enabled = Not (estado)
End Select
End Sub
Sub OnActionButton(control As IRibbonControl)
Select Case control.ID  
Case "Button2"
estado = Not (estado)
CintaOpciones.Invalidate
Case "Button3"
estado = Not (estado)
CintaOpciones.Invalidate
Case "Button4"
estado = Not (estado)
CintaOpciones.Invalidate
Case "Button5"
estado = Not (estado)
CintaOpciones.Invalidate
Case "Button6"
estado = Not (estado)
CintaOpciones.Invalidate
Case "Button7"
estado = Not (estado)
CintaOpciones.Invalidate
Case "Button8"
estado = Not (estado)
CintaOpciones.Invalidate
Case "Button10"
estado = Not (estado)
CintaOpciones.Invalidate
Case "Button11"
estado = Not (estado)
CintaOpciones.Invalidate
End Select
End Sub

该代码应该禁用学生用户不能使用的按钮。

在代码XML中，我有：
只是有点像

<button id="Button2" label="Crear Grupo" image="agregar-grupo" onAction="Ribbon.CrearGrupo" getEnabled = GetEnabled/>
<button id="Button3" label="Asignar Clave" image="clave" onAction="Ribbon.claveModulos" getEnabled = GetEnabled/>

在登录表单中，我验证用户学生是否调用函数，但我不知道该放什么。

Answer 1

GetEnabled属性周围缺少双引号。

<button id="Button3" label="Asignar Clave" image="clave" onAction="Ribbon.claveModulos" getEnabled="GetEnabled"/>

以下是Ron de Bruin的一篇精彩文章：在Excel2007及更高版本中启用或禁用自定义功能区按钮。