如何真正隐藏查询、窗体、报表、模块、宏？急！！！

求教各位老师：
在ACCESS中，我用从论坛中学到的以下代码成功的隐藏了所有的表，但要隐藏所有的查询、窗体、报表、模块、宏，我就不会了，因此还恳请老师指导代码，谢谢！
Public Sub 隐藏所有表()
      On Error Resume Next
      Dim tdf As Object
      For Each tdf In CurrentDb.TableDefs
           tdf.Attributes = 1
      Next
End Sub