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