在启动时执行就可以了
把代码存在模块中
Sub xj1()
Application.SetOption "ShowWindowsInTaskbar", 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 Animations", False '动画显示
Application.SetOption "Default Record Locking", 0 '默认记录锁定
Application.SetOption "Use Row Level Locking", False '记录级锁定打开
Application.SetOption "Default Open Mode for Databases", 0 '默认找开模式
Application.SetOption "Default File Format", 10 '默认文件格式
Application.SetOption "Remove Personal Information", True '删除个人信息End With
End Sub