VB初心者友の会 - Q&A掲示板過去ログ

こんにちは、たえさん。新規質問になさったんですね。こちらに続けます。

> マクロを含まないと判断した時に、マクロを無効にしてファイルをOPENしたいのです。
> (マクロ警告メッセージで「マクロを無効する」ボタンをクリックした状態と同じ。)

マクロを含むときですよね？　含まないときに警告は出ないので。(^_^;;)

イベントプロシージャなら、
オブジェクト変数.EnableEvents = False とすればいいのですが、
ボタンに登録した、、、とか言うマクロだったら、押されれば動いてしまいますね。
マクロ側で判断できればいいのですが（って本末転倒ですね）。

みゃおさん早速のレスありがとうございます。

>　マクロを含むときですよね？　含まないときに警告は出ないので。(^_^;;)

そうです。マクロを含むときです(^^;)失礼しました！
現在のPGを下に貼り付けておきます。

>　イベントプロシージャなら、
>　オブジェクト変数.EnableEvents = False とすればいいのですが、

この場合でも使えるのでしょうか？
なんせエクセルのことあんまり深くやったことがないもんで...
質問攻めですみません！
なにか良いアドバイスがあれば宜しくお願いします。


    '__エクセルインスタンスを新規作成します。
    Set G_Excel_New = CreateObject("Excel.Application")
    '__対象ワークブックを開きます。
    Set G_ExcelBook_New = G_Excel_New.Workbooks.Open(pPath)

    CheckModule = False
    
    With G_ExcelBook_New.Application.VBE.ActiveVBProject
        '__.VBComponents.Count←エクセルファイルに含まれるコンポーネントの数を数えます。
        For i = 1 To .VBComponents.Count
            '__.VBComponents(i).CodeModule.CountOfLines←各コンポーネントの行数を数えます。
            If .VBComponents(i).CodeModule.CountOfLines > 0 Then
                CheckModule = True
            End If
        Next i
    End With

    If CheckModule Then
        iRet = FPub_DSP_MSG_ANS("開こうとしている文書には、マクロが含まれています。マクロには、" & vbCrLf & _
        "コンピュータに問題を引き起こすウィルスが含まれていることがあります。" & vbCrLf & _
        "この文書が安全であることがあらかじめわかっている場合は" & vbCrLf & _
        "[はい] をクリックしてください。すべてのマクロを実行" & vbCrLf & _
        "しないようにする場合は [いいえ] をクリックしてください。", vbYesNo + vbQuestion, lANS)
        
        If lANS = 6 Then　　　'__「マクロを有効」
            '__Auto_Openを実行します。
            G_ExcelBook_New.RunAutoMacros (xlAutoOpen)
        ElseIf lANS = 7 Then　'__「マクロを無効」
            '__ここでマクロを無効にしたい。
            
        End If
    End If

> >　イベントプロシージャなら、
> >　オブジェクト変数.EnableEvents = False とすればいいのですが、

> この場合でも使えるのでしょうか？

イベントプロシージャとは、ExcelのSheetモジュールやThisworkbookモジュールで、
オブジェクト名_Open とか、オブジェクト名_Activate とか記述します。
オブジェクト名の部分は、ドロップダウンリストで出てくるものを指します。
（実際に見てみた方が早いです）

>         If lANS = 6 Then　　　'__「マクロを有効」
>             '__Auto_Openを実行します。
>             G_ExcelBook_New.RunAutoMacros (xlAutoOpen)
>         ElseIf lANS = 7 Then　'__「マクロを無効」
>             '__ここでマクロを無効にしたい。
>             
>         End If

開くブックは限定されていて、そのブックにはAuto_Openプロシージャしかないのであれば
何も書く必要はありません。
VB側からそのマクロを起動しない限り走らないので。
もし、そのほかにマクロがあり、ユーザー側が実行するおそれがあるのなら（マクロを登録した
ボタンをクリックするとか）、それは難しいと思います。
その場合はSHELL起動して、本来の警告メッセージにお任せした方がいいでしょう。

>             If .VBComponents(i).CodeModule.CountOfLines > 0 Then
>                 CheckModule = True
>             End If

なお、私の環境では上の３行ではマクロの有無を判断できません。
「変数の宣言を強制する」にチェックを入れているので、自動的にOption Explicitが
１行入ってしまいますので。２行以上、と前に書いたのはそういうわけです。
ただ、Option Base 1　とか他にも、行数が増えてもマクロと見なされないものがあると、
２行以上でもわかりません。
それなら、SubとかFunctionとかいう単語を検索した方がいいかもしれません。