office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access徹底隱藏表顯示表

2017-09-18 16:48:00
tmtony8
原創
6717

有網友問及為了安全起見,如何徹底隱藏所有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

    分享
    北京十一选五基本走势