项目设置了授权,无法打开
Dim t As String = Forms("窗口1").Controls("MOD").Text
Dim mnu As RibbonMenu.ContextMenu
mnu = ContextMenus("amd")
For Each i As RibbonMenu.ContextCommand In mnu.Items
i.Enabled = true
Next
Select Case t
Case "adder"
mnu(t).Enabled = False
Case "modify"
mnu(t).Enabled = False
Case "del"
mnu(t).Enabled = False
End Select
e.ContextMenu = mnu