Access徹底隱藏錶顯示錶

有網(wǎng)友問(wèn)及爲(wèi)瞭安全起見(jiàn)，如何徹底隱藏所有Access錶？這樣就能避免其他員工誤刪瞭數(shù)據(jù)錶。

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

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

2、這裡講的是利用DAO代碼徹底隱藏?cái)?shù)據(jù)錶。直接通過(guò)代碼隱藏。TableDefs.Attributes屬性0爲(wèi)顯示，1爲(wèi)隱藏

詳細(xì)源碼：

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