主题：禁止删除表

有些重要的表，担心误删除，可以禁止删除表吗？

可以，Afteropenproject事件：

 

RibbonTabs("Table").Groups("Table").Items("DeleteTable").Enabled = False

 

这样是所有的表都不能删除，我想要的只是某一些表

自己做一个按钮

 

 

Dim tname() As String = {"表A", "表C"}
If array.Indexof(tname, CurrentTable.Name) >= 0 Then
    msgbox("此表不能删除")
Else
    Syscmd.Table.Delete()
End If

你的意思把删除表的命令禁用，然后自己再做一个删除按钮，对禁止删除放在tname中

对吗

是的。

你直接修改原来菜单的按钮也可以嘛

2楼代码提示菜单中不存在table的功能组

那就不写2楼的代码即可，但都做一个删除表的菜单按钮。