求助如何隱藏查詢表,並分享能一次性隱藏基本表的方法.

gaoyh2008

以下壇子裡高人共享的可以隱藏基本表的代碼,可不能隱藏查詢表,不知有沒有兄弟有隱藏查詢表的代碼分享一下,在此先謝謝了!
Function chediyincangbiao()     '彻底隐蔽所有的表格包括链接表及系统表等
On Error GoTo Err_Command0_Click
Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
   
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
    '此项操作应避开系统表,以免将系统表属性改而造成问题.
      If db.TableDefs(i).name = "msysaccessobjects" or db.TableDefs(i).name = "MSYSACCESSXML" _
      or db.TableDefs(i).name = "MSYSACES" or db.TableDefs(i).name = "MSYSOBJECTS" _
      or db.TableDefs(i).name = "MSYSQUERIES" or db.TableDefs(i).name = "MSYSRELATIONSHIPS" Then
      
    Else
       CurrentDb.TableDefs(db.TableDefs(i).name).Attributes = 1
    End If
    Next i
    Set db = Nothing
MsgBox "当前数据库中的所有表格都已被隐藏."
Exit_Command0_Click:
    Exit Function
Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
End Function

sblisb

那取消隐藏呢，
CurrentDb.TableDefs(db.TableDefs(i).name).Attributes = 1
这句要等于0？

roych

类似地……定义Qrydefs就是了，把相关的TableDef改为Qrydef；TableDefs改为Qrydefs。。
隐藏表和查询问题，没必要深究。在这之前已经就这个问题跟大伙拍过砖了，请参考有没有用MSysObjects找不到的表？
如果对付一般用户，加了工作组和禁用Shift键，基本已经可以的了，没这个必要。
对付像俺这样的捣蛋分子，请客吃个饭就行了，否则隐藏表也没多大用。加多几层锁，无非需要我多花些功夫罢了。

gaoyh2008

回复 roych 的帖子

謝謝兄弟指導,看來俺還菜的很喲,改天請你吃飯

gaoyh2008

回复 sblisb 的帖子

是的.我剛開始已不知道,後來自己試了一下果然如此.