主题：[求助]能否将表事件的代码改写到全局表事件

各位老师，新年好！
以下两段代码需要写入每张表的表事件中，如果将此代码写入全局表事件中，并达到同样效果，应该如何修改，请各位老师指教，谢谢！！

1、表事件BeforeShowContextMenu

'隐藏快捷键
If _UserGroup = "开发" Then
    e.Cancel = False
Else
    e.Cancel = True
End If

DataTables("表名").SysStyles("Frozen").BackColor = Color.LightCyan
DataTables("表名").SysStyles("CurrentRow").BackColor = Color.Blue
DataTables("表名").SysStyles("CurrentRow").ForeColor = Color.White