Access隱藏所有查詢對(duì)象

論壇有這樣這個(gè)問(wèn)題《如何用代碼隱藏查詢》。

為了發(fā)布MDE文件時(shí)隱藏全部的表提高安全性 ，使用以下代碼隱藏表。

Dim tabDef As New TableDef
     Set dbs = CurrentDb
     For Each tabDef In dbs.TableDefs
             tabDef.Attributes = 1
     Next

在前面講過(guò)的《Access徹底隱藏表對(duì)象》有提及，但是同樣的代碼用來(lái)隱藏查詢是不行的。因?yàn)椴樵儗?duì)象是沒(méi)有Attributes對(duì)象。

可以利用下面的代碼隱藏查詢。

Sub HiddenQry()
    For Each qf In CurrentDb.QueryDefs
        If Left(qf.Name, 1) <> "～" Then
            Application.SetHiddenAttribute acQuery, qf.Name, False
        End If
    Next
End Sub

此時(shí)，查詢所有對(duì)象不存在了