[size=3][color=#0000ff][b][attach]30511[/attach][hide][/b][/color][/size] [size=3][color=#0000ff][b]'自动去除工具选项中系统对象及隐藏对象源码[/b][/color][/size] [size=3][color=#0000ff][b]Function ShowSystemObjects()[/b][/color][/size] [size=3][color=#0000ff][b]Application.SetOption "Show Hidden Objects", 0[/b][/color][/size] [size=3][color=#0000ff][b]Application.SetOption "Show System Objects", 0[/b][/color][/size] [size=3][color=#0000ff][b]End Function [/b][/color][/size] [size=3][color=#0000ff][b]'自动恢复工具选项中系统对象及隐藏对象源码[/b][/color][/size] [size=3][color=#0000ff][b]Function ShowSystemObjects()[/b][/color][/size] [size=3][color=#0000ff][b]Application.SetOption "Show Hidden Objects", 1[/b][/color][/size] [size=3][color=#0000ff][b]Application.SetOption "Show System Objects", 1[/b][/color][/size] [size=3][color=#0000ff][b]End Function [/hide][/b][/color][/size]详细内容:http://www.office-cn.net/forum.php?mod=viewthread&tid=62285 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2025-4-6 22:18 , Processed in 0.064611 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.