ＶＢからＥｘｃｅｌシートを開く時、マクロを無効にして開く方法を教えてください

> ＶＢからＥｘｃｅｌシートを開く時、マクロを無効にして開く方法を教えてください

ここのExcel & Word 関係はご覧になられましたか？
まだでしたら、一度見ておいて下さい。

> > ＶＢからＥｘｃｅｌシートを開く時、マクロを無効にして開く方法を教えてください
>
> ここのExcel & Word 関係はご覧になられましたか？
> まだでしたら、一度見ておいて下さい。

はい　見ましたけどよくわかりませんでした

> > > ＶＢからＥｘｃｅｌシートを開く時、マクロを無効にして開く方法を教えてください
> >
> > ここのExcel & Word 関係はご覧になられましたか？
> > まだでしたら、一度見ておいて下さい。
>
> はい　見ましたけどよくわかりませんでした

どこを見ましたか？　どこがよく解らないのですか？

GetObject を使って開いていませんか？

ここの 既存のエクセルファイルを開く の中に
　'この状態で起動した場合マクロの警告は表示されません。　に書いています。

又エクセル！ワンポイントテクニック集の中に　マクロの警告のメッセージを表示させない
等、本当に見たのですか？

> > > > ＶＢからＥｘｃｅｌシートを開く時、マクロを無効にして開く方法を教えてください
> > >
> > > ここのExcel & Word 関係はご覧になられましたか？
> > > まだでしたら、一度見ておいて下さい。
> >
> > はい　見ましたけどよくわかりませんでした
>
> どこを見ましたか？　どこがよく解らないのですか？
>
> GetObject を使って開いていませんか？
>
> ここの 既存のエクセルファイルを開く の中に
> 　'この状態で起動した場合マクロの警告は表示されません。　に書いています。
>
> 又エクセル！ワンポイントテクニック集の中に　マクロの警告のメッセージを表示させない
> 等、本当に見たのですか？

GetObjectは使用しておりません
「この状態で起動した場合マクロの警告は表示されません。」を参考にしましたところ
警告表示はなくなったんですがマクロは有効状態で開いています

すみません。ごめんなさい。勘違いしておりました。m(__)m

前もってセキュリティレベルを高に設定しておくか
（VBから直接セキュリティレベルを変更する方法はしりません）

　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.Workbooks.Open("C:\Temp.xls")
　　Set xlSheet = xlBook.Worksheets(1)
　　xlApp.EnableEvents = False

のように設定して開いてみて下さい。イベントマクロは実行されません。

> 前もってセキュリティレベルを高に設定しておくか

私も同じような状況で悩んだことがあったので
興味深く見ておりましたが
私の場合 セキュリティレベルを高にしても
Visible=True で VBから起動した Excel本体の
メニューからマクロ実行が出来てしまったのです。
K.Iさんの状況がどうかはわかりませんが
「勝手にマクロ動かさないでね」といったオペ指導で
逃げた過去があります。

テンプレートマクロじゃないのでしょうか？
事前にマクロがある事が解っていたり、ご自分で作成したマクロならマクロ内に
事前にフラグを設定しておきマクロを使用されたくない場合そのフラグを操作
するのではだめでしょうかね？

> 事前にマクロがある事が解っていたり、ご自分で作成したマクロならマクロ内に
> 事前にフラグを設定しておきマクロを使用されたくない場合そのフラグを操作
> するのではだめでしょうかね？
ああ！そういう手もありますね！
ただ先の例のモノは遥か昔に私の手を離れてしまってますので
今となってはどうすることも・・・
今後の参考にさせていただきます。
ありがとうございました。

> すみません。ごめんなさい。勘違いしておりました。m(__)m
>
> 前もってセキュリティレベルを高に設定しておくか
> （VBから直接セキュリティレベルを変更する方法はしりません）
>
> 　　Set xlApp = CreateObject("Excel.Application")
> 　　Set xlBook = xlApp.Workbooks.Open("C:\Temp.xls")
> 　　Set xlSheet = xlBook.Worksheets(1)
> 　　xlApp.EnableEvents = False
>
> のように設定して開いてみて下さい。イベントマクロは実行されません。

マクロ実行しないようになりました
大変、有難う御座いました。

> マクロ実行しないようになりました

私もホットしました。(^_^;)

場合によっては下記のような事も有効です。

Public MacroFlag As Boolean
Sub Macro1()
    If MacroFlag = True Then
        Range("B4").Select
        ActiveCell.FormulaR1C1 = "マクロが実施されました。"
        Range("A1").Select
    End If
End Sub
Sub Auto_Open()
    MacroFlag = True
End Sub

以上はExcel上の記述

VBからExcelを起動すると通常は、Auto_Open が実施されません。
従ってフラグが設定してあるマクロは実行できません。

※ No.2778の投稿の下記の部分は
　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.Workbooks.Open("C:\Temp.xls")
　　Set xlSheet = xlBook.Worksheets(1)
　　xlApp.EnableEvents = False

こちらに訂正願います。
    Set xlApp = CreateObject("Excel.Application")
    xlApp.EnableEvents = False
    Set xlBook = xlApp.Workbooks.Open("C:\Temp.xls")
    Set xlSheet = xlBook.Worksheets(1)

Workbook_Openイベントに書かれているマクロも無効になります。