如何彻底隐藏查询

我从论坛中下载了老师的代码，表可以彻底隐藏，但查询只会普通隐藏，通过设置显示设置，还是能看到查询。

    DoCmd.SetWarnings 0     '关闭系统提示
    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    '此项操作应避开系统表'MSYS',以免将系统表属性更改而造成问题.
        If Mid(db.TableDefs(i).Name, 1, 4) <> "MSYS" Or Mid(db.TableDefs(i).Name, 1, 11) = "msysobjects" Then          'MsgBox "隐藏表: " & db.TableDefs(i).Name
            CurrentDb.TableDefs(db.TableDefs(i).Name).Attributes = 1
        End If
    Next i
    db.QueryDefs.Refresh
    For i = 0 To db.QueryDefs.Count - 1    '此项操作应避开系统查询'~sq_r',以免将系统查询属性更改而造成问题.
        If Mid(db.QueryDefs(i).Name, 1, 3) <> "~sq" Then            ' MsgBox "隐藏查询: " & db.QueryDefs(i).Name
            Application.SetHiddenAttribute acQuery, db.QueryDefs(i).Name, 1
            Application.SetHiddenAttribute acQuery, "T1 查询", True
        End If
    Next i
    Set db = Nothing   ' MsgBox "当前数据库中的所有表和查询都已隐藏."