|
楼主帖子值得推广
我修改了楼主的部分代码,把固定窗口代码 改为了 最大化。(最大化用的比较多,所以这样做)
-------------------------------------------------------------
增加了设置acc选项的代码,一并设置acc的环境。
Private Sub Setopt() '设置acc选项
'还可以继续进行补充,可是关于这个 SetOption 方法的更多参数我也不知道如何表述和设置值
On Error Resume Next
Application.SetOption "Show Startup Dialog Box", False ' 不显示启动任务窗口
Application.SetOption "Confirm Record Changes", False '确认,记录更改
Application.SetOption "Confirm Document Deletions", False '确认,删除文档
Application.SetOption "Confirm Action Queries", False '确认,操作查询
Application.SetOption "Auto Compact", True
Application.SetOption "Show Hidden Objects", False
Application.SetOption "Show Status Bar", False
End Sub
-------------------------------------------------------------------
修改后的附件如下:
[ 本帖最后由 wu8313 于 2008-7-24 19:02 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|