主题：[求助]请问下菜单跨表使用的问题

我有两张表 zghmc 和 lwhmc 然后导出菜单代码如下

Dim dlg As new savefiledialog
dlg.filter = "Excel文件|*.xlsx"
If dlg.showdialog = dialogresult.ok Then
    Tables("zghmc").saveexcel(dlg.filename,"花名册")
End If

请教两个问题：

1.想导出lwhmc，请教下代码怎么写可以自动判断导出当前表，而不用再做一个菜单

2.为了分别删两张表的内容我做了两个删除菜单，我好怕别人去按了非当前表的删除菜单，请问下代码怎么写可以让非当前表的那个菜单无效，谢谢啦。