Accessでセキュリティ警告ダイアログの発生を抑制させる(VB6)

program

http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel._application.automationsecurity%28v=office.11%29.aspx
Accessでネットワーク上のmdbを開くとセキュリティ警告が表示される場合がある。マクロなどでこれを無効化したい場合は次のようにする。

Sub DisableSecurityAlert(ByRef oAccessApp As Object)
    Const c_acSysCmdAccessVer = 7
    Dim nVer As Integer
    
    nVer = oAccessApp.SysCmd(c_acSysCmdAccessVer)
    If nVer >= 11 Then
       oAccessApp.AutomationSecurity = 1 ' セキュリティ警告抑制
    End If

End Sub