[5分]禁止ACCESS表的导入与导出

拆分数据库，后台设置密码，前台ado方式连接后台，隐藏后台表，隐藏表方法如下：

Function 隐藏表()     '彻底隐蔽所有的表格包括链接表及系统表等

Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
    '此项操作应避开系统表,以免将系统表属性改而造成问题.
    If Mid(db.TableDefs(i).name,0,4) <> "msys" Then      
       CurrentDb.TableDefs(db.TableDefs(i).name).Attributes = 1    '=0为显示表
    End If
    Next i
    Set db = Nothing
'MsgBox "当前数据库中的所有表格都已被隐藏."

End Function