Hidding MS Access Objects

[WoodsRichard]

I have found this code and it works great for tables. They are Hidden and unless you VBA code to unhide they can not be seen. I need code to hide macros, querys, and modules. I tried to modify this code and can not seem to get it to work.
Public Sub HideTable(ByVal sTableName As String)
Application.CurrentDb.TableDefs(sTableName).Properties("Attributes").Value = dbHiddenObject
End Sub