让用户看不到链接表

用代码将链接表的attributes属性改成1,隐藏链接表, 再生成mde文件即可
代码:
Sub asdfasdfa() '隐藏
    For Each tabdef In CurrentDb.TableDefs
        Debug.Print tabdef.Name
        Debug.Print tabdef.Attributes
        If tabdef.Attributes = 1073741824 Then
            tabdef.Attributes = 1
        End If
    Next
End Sub

Sub asdfasdfa1() '显示
    For Each tabdef In CurrentDb.TableDefs
        Debug.Print tabdef.Name
        Debug.Print tabdef.Attributes
        If tabdef.Attributes = 1073741825 Then
            tabdef.Attributes = 0
        End If
    Next
End Sub