设置对象的“隐藏”属性,通过设置此属性,除非用户特别选择“显示隐藏对象”选项,否则对象将不会以本机方式显示在导航窗格中。
也可以参考以下VBA代码设置对象的隐藏属性。
'隐藏对象
Application.SetHiddenAttribute acTable, "TableName", True 'A Table
Application.SetHiddenAttribute acQuery, "QueryName", True 'A Query
Application.SetHiddenAttribute acForm, "FormName", True 'A Form
Application.SetHiddenAttribute acReport, "ReportName", True 'A Report
Application.SetHiddenAttribute acMacro, "MacroName", True 'A Macro
Application.SetHiddenAttribute acModule, "ModuleName", True 'A Module
'显示对象
Application.SetHiddenAttribute acTable, " TableName ", False 'A Table
Application.SetHiddenAttribute acQuery, " QueryName ", False 'A Query
Application.SetHiddenAttribute acForm, "FormName", False 'A Form
Application.SetHiddenAttribute acReport, "ReportName", False 'A Report
Application.SetHiddenAttribute acMacro, "MacroName", False 'A Macro
Application.SetHiddenAttribute acModule, "ModuleName", False 'A Module
示 例:
点击下载此附件
演 示: