Access徹底隱藏錶顯示錶

有網友問及爲瞭安全起見，如何徹底隱藏所有Access錶？這樣就能避免其他員工誤刪瞭數據錶。

一般的操作是在客戶端中設置隱藏繫統錶。

1、菜單欄-文件-選項-當前數據庫 中的導航選項，“顯示隱藏對象”“顯示繫統對象”的“√”去掉。詳細的設置這裡不再纍贅。

2、這裡講的是利用DAO代碼徹底隱藏數據錶。直接通過代碼隱藏。TableDefs.Attributes屬性0爲顯示，1爲隱藏

詳細源碼：

Private Sub 顯示_Click()
    Dim tdf As Object
    
    
    For Each tdf In CurrentDb.TableDefs
        tdf.Attributes = 0
        Application.RefreshDatabaseWindow
        
        
    Next
End Sub

Private Sub 隱藏_Click()
    Dim tdf As Object
    
    For Each tdf In CurrentDb.TableDefs
        tdf.Attributes = 1
        Application.RefreshDatabaseWindow
        
    Next
End Sub