标题：求助可视化授权代码

我想要功能区、功能组、按键的不可见代码

 

我发现在表A建立窗口以后，虽然可视化授权可以做到，表不可见和不可编辑，但是我在窗口上设置一个按键事件为Tables("表A").Current.Delete能操作！

 

那么我想吧用户直接不可见，功能区、或功能组、或按键。这样虽然绑定了表。也没法操作了！

 

 

不知道我这样的想法对不对，请专家们给点好的建议

 

顺便我想要功能区、功能组、按键，不可见代码，谢谢

Dim dr As DataRow = DataTables("授权表").Select("用户名 = '" & User.Name & "' And 表名 = '" & CurrentTable.DataTable.Name & "'" )
if dr is Nothing OrElse dr("允许删除")  = True
    Tables("表A").Current.Delete
End if