'If Pressed = True Then Enable other buttons in Group 02 MsgBox "You Pressed Compare in Compare", vbOKOnly, "TESTING" ![]() Sub G02_tog_01_sub(control As IRibbonControl, Pressed As Boolean) ' Call RefreshControl(ribState:=True, ribControl:="G00_tog_02") 'Unneccessary as also called by Sheet ActivateĬall RefreshControl(ribState:=False, ribControl:="G00_tog_01") ' MsgBox "You Pressed Data Table in View", vbOKOnly, "TESTING" Sub G00_tog_02_sub(control As IRibbonControl, Pressed As Boolean) ' Call RefreshControl(ribState:=True, ribControl:="G00_tog_01") 'Unneccessary as also called by Sheet ActivateĬall RefreshControl(ribState:=False, ribControl:="G00_tog_02") ' MsgBox "You Pressed Entry Form in View", vbOKOnly, "TESTING" Sub G00_tog_01_sub(control As IRibbonControl, Pressed As Boolean)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |