如何彻底隐藏查询

下面的代码是从论坛前辈的文章中学习得来，能够彻底隐藏表，但查询只是标记了隐藏，通过导航栏设置显示隐藏对象就把查询给显示出来了。请问如何才能像表一样彻底隐藏查询？

Function HIDE()     '彻底隐蔽所有的表包括链接表及隐藏的查询
    On Error GoTo Err_Command0_Click
    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" 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, db.QueryDefs(i).Name, True
 
        End If
    Next i
    Set db = Nothing   ' MsgBox "当前数据库中的所有表和查询都已隐藏."
    Application.SetOption "Show Hidden Objects", 0

Application.SetOption "Show System Objects", 0

Exit_Command0_Click:
    Exit Function
Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
End Function