ライブラリ

fVBE_IsSecurity

オプション設定[VBAへのアクセスを信頼する]の設定値を取得
※VBAでモジュール等を処理する際に必須の判定

Public Function fVBE_IsSecurity(App As Application, Optional Alert As Boolean = True) As Boolean
    
    Dim Val     As Variant
    
    On Error GoTo Terminate
    Val = App.VBE.MainWindow.Visible
    
    '取得できない→オプション設定が必要
    Exit Function
Terminate:
    fVBE_IsSecurity = True
    If Alert = True Then
        Call Msg_Show("オプション設定[VBAへのアクセスを信頼する]がOFFになっています" & CL2 & _
                      "以下の手順でONにしてください" & CL2 & _
                      "[ファイル]タブ → [オプション] → [セキュリティセンター] " & CL & _
                      " → [セキュリティセンターの設定] → [マクロの設定]" & CL & _
                      " → [VBA プロジェクト オブジェクト モデルへのアクセスを信頼する]にチェック" & CL)
    End If
    Err.Clear
End Function

VBE   2017/07/11   shono
 |  Msg_Show ≫

この記事へのコメント

コメントを送る

 
※ メールは公開されません
Loading...
 画像の文字を入力してください