Access徹底隱藏表顯示表

有網(wǎng)友問及為了安全起見，如何徹底隱藏所有Access表？這樣就能避免其他員工誤刪了數(shù)據(jù)表。

一般的操作是在客戶端中設(shè)置隱藏系統(tǒng)表。

1、菜單欄-文件-選項-當前數(shù)據(jù)庫 中的導(dǎo)航選項，“顯示隱藏對象”“顯示系統(tǒng)對象”的“√”去掉。詳細的設(shè)置這里不再累贅。

2、這里講的是利用DAO代碼徹底隱藏數(shù)據(jù)表。直接通過代碼隱藏。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