不好意思,上次发的这段代码有误.需要修改一下.如下:

把这段代码放入到模块中.然后在窗体事件中调用即可.  CALL YINCANGCHAXUN() 

Function YinCangChaXun()
On Error GoTo Err_Com1

'==========================================
'隐藏系统中所有的查询,以确保不会被非法链接,
'DoCmd.SetWarnings 0     '关闭系统提示

Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
   
    db.QueryDefs.Refresh
    For i = db.QueryDefs.Count - 1 To 0 Step -1
   ' MsgBox db.QueryDefs(i).Name
  
      Application.SetHiddenAttribute acQuery, db.QueryDefs(i).Name, True
       'MsgBox db.QueryDefs(i).Name
    Next i
    Set db = Nothing
    
MsgBox "当前数据库中的所有查询都已被隐藏."

 
Exit_Com1:
    Exit Function

Err_Com1:
   ' MsgBox Err.Description
    Resume Exit_Com1
' DoCmd.SetWarnings -1
End Function

目前这段代码在实际运行时还有点问题,就是总会去试图隐藏系统查询而不得.所以,需要关闭系统提示.否则会烦死了,哈哈.