objAcc.Visible = False 可視

質問

アクセスからアクセスファイルを開いています。

Set objAcc = CreateObject("Access.Application")
objAcc.OpenCurrentDatabase "C:\あああ.accdb", False
objAcc.Run "test1"

objAcc.Quit
Set objAcc = Nothing

の様にして、VBAでアクセスファイルを開いてるのですが
この時、起動するファイルの可視をFalseにすることは可能でしょうか？

Set objAcc = CreateObject("Access.Application")
objAcc.Visible = False
objAcc.OpenCurrentDatabase "C:\あああ.accdb", False

としても、ファイルが開いてるのが見えてしまいます。

回答No.2

NotFound404

おっと失礼。
Cドライブ直下に置いているのでしたね。
Cドライブ直下はOSの聖域（UACで制限）なので
C:\temp などのフォルダに、あああ.accdb をおいて行ってください。
Administratorsグループに属するアカウントであっても
『管理者として実行』しない限り
起動時に作成されるロック情報ファイル（あああ.laccdb)の書き込みができません。

なお、当方の『Test1』の内容は
Sub Test1()
beep '音を鳴らすだけ
end sub

念のため、タスクマネージャでMSAccess.exe の残骸が残っていないか確かめてから
お試しを。

回答No.1

NotFound404

objAcc.Visible = False
にしているのなら出てこないハズなんですけどね。
もしかして、test1 モジュールの中で Msgbox とかで
ユーザーに操作を要求する部分がありませんか？
その場合には False にしていても出ざるを得ません。
test1 の内容次第かと。

お礼

早速のご返答ありがとうございます。

test1 の内容は、Msgbox等はありません。

どうやら、
objAcc.OpenCurrentDatabase "C:\あああ.accdb", False
でファイルが起動するようです。

objAcc.Visible = False
objAcc.OpenCurrentDatabase "C:\あああ.accdb", False
objAcc.Visible = False
としたら、一瞬だけファイルが立ち上がります。