マクロを無効にしてブックを開くマクロ - Office系ソフト - 教えて！goo

#4>別のファイルを開くコマンド入れましたが、働いてくれません。
すみません、検証不十分でした。
マクロの実行からやると何回でもファイルを開けるということとAutomationSecurity に関するヘルプの記述から実行できると思っていました。
そのヘルプの記述によるとファイルを開いた後
マクロのレベルを戻すというようなサンプルの記述がありますが、実際には、このサンプルは動作しません。
バグであるとするのかは微妙な処ですが、
今、自分のマクロ実行を無効にしたので、マクロが実行できないのは当然とも言えます（じゃあ、なぜｏｐｅｎするマクロは動くのかという議論もあるかと思いますが）
それで、結論としては、マクロの実行中の文（センテンス）からこれを戻す方法はないように思えます。
すでに述べたように、マクロの実行ダイアログからは、マクロの実行はできるので、このレベルを変更する（戻す）ようなマクロを書くことで、レベルを戻すことはできますが、前の実行文の次から実行することは（面倒な機構をあらかじめ準備すれば別ですが）できません。
前置きが長くなってしまいましたが
それを回避するために
CreateObject("Excel.application")で
エクセルを別に起動することで
手続きを面倒にすることなく、概ね同様の手順でファイルを処理できると思います。
以下サンプル
Dim xl
Set xl = CreateObject("Excel.application")
xl.AutomationSecurity = msoAutomationSecurityForceDisable '別のアプリとしてのエクセルのマクロを無効にする
xl.Workbooks.Open Filename:="マクロを含むファイル１.xls"
MsgBox xl.Range("A1").Value 'そのファイルのセルにアクセスできる
xl.Workbooks.Open Filename:="マクロを含むファイル２.xls"
MsgBox xl.Range("A1").Value '次に開いたファイルにもアクセスできる、実際には、オブジェクトを分けたりした方が便利
xl.Quit 'もう一つのエクセルを終了させる、自動計算によって内容が変更されるようなファイルを開いた場合には、変更を保存しないでいいのか聞かれるがそういう場合は、あらかじめDisplayAlertsで抑制できる
Set xl = Nothing 'オブジェクトを解放しておく

通報する

ブックを開く前に次の一文を挿入して下さい
Application.AutomationSecurity = msoAutomationSecurityForceDisable

通報する

う～ん、こちらで試したときはマクロが
無効になったのですが・・・。

他の方の回答をお待ちください。

通報する

具体的には、こんな感じです。

***********
Sub Aopen()
Application.EnableEvents = False
Workbooks.Open "C:\Documents and Settings\marbin\デスクトップ\BookA.xls"
Application.EnableEvents = True
End Sub
************

通報する

イベント禁止してから対象ののブックを
開いてください。

WorkBook_Openが無効になると思います。

通報する