Comment vérifier .net code que “la Confiance de l'accès à l'objet du projet VBA modèle” est activée ou non pour une application Excel?

Comment vérifier .net code si "Confiance accéder au modèle d'objet du projet VBA" est activée ou non pour une application Excel?

Manuellement je peux le vérifier à partir de l'application Excel- Fichier>Options>Trust Center>Centre de gestion de Paramètres>Paramètres des Macros>approuver l'accès au modèle d'objet du projet VBA

Comment vérifier .net code que “la Confiance de l'accès à l'objet du projet VBA modèle” est activée ou non pour une application Excel?

OriginalL'auteur Kushal Waikar | 2011-03-14

  1. 21

    La réponse courte est que vous ne pouvez directement accéder à ce paramètre en utilisant le modèle objet d'Excel (c'est à dire par PIAs).
    Cependant, au lieu de cela, vous pouvez vérifier ce paramètre à partir du registre à l'emplacement suivant (ici, je suppose que vous utilisez Office 2007 - version 12.0):

    HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security\AccessVBOM

    c'est une valeur DWORD qui sera de 0 ou 1 selon que le "faire Confiance au Modèle Objet VBA" est activé.

    Toutefois, ce paramètre peut être remplacé par une autre clé de registre situé à:

    HKEY_LOCAL_MACHINE\Software\Microsoft\Office\12.0\Excel\Security\AccessVBOM

    c'est encore une fois une valeur DWORD, cependant, si cette valeur est à 0, cela signifie que peu importe ce que les HKCU valeur est définie pour l'accès à la VBOM sera refusée. Si la valeur dans la clé HKLM est de 1 ou de manquant, puis la clé HKCU contrôle l'accès à la VBOM.

    Donc, tout ce que vous devez faire est de vérifier ces deux touches via le Registre des méthodes .NET.

    +1. Réponse parfaite!

    OriginalL'auteur i_saw_drones

  2. 2

    Cela a fonctionné pour moi

    Function VBATrusted() As Boolean
    On Error Resume Next
    VBATrusted = (Application.VBE.VBProjects.Count) > 0
End Function

Private Sub Workbook_Open()
    If Not VBATrusted() Then
    MsgBox "No Access to VB Project" & vbLf & _
      "Please allow access in Trusted Sources" & vbLf & _
      "File > Options > Trust Center > Trust Center Settings > Macro Settings > Trust Access..."
    End If
End Sub

    Source https://www.mrexcel.com/forum/excel-questions/659774-checking-if-trust-access-visual-basic-project-ticked.html

    Solution sympa, mais au lieu de VBATrusted = (Application.VBE.VBProjects.Count) > 0 je vous suggérons d'utiliser autre chose comme VBATrusted = (Application.VBE.CommandBars.Count) > 0 parce que l'ancien vérification peut renvoyer des résultats erronés si le courant XL app a pas de macros à l'intérieur. La dernière case juste compte par défaut des barres de commande qui a retourné 30 pour mon Excel Version 16.0 (2016).

    OriginalL'auteur Brad

  3. 0

    Des recherches dans le registre pour toutes les instances de "AccessVBOM" et modifiez la valeur Dword paramètres 1.

    Qui doit l'activer.

    Une ligne de réponses doivent être affichés sous forme de commentaires. En outre, a été votre "réponse" ajouter par rapport à la réponse de @i_saw_drones?

    OriginalL'auteur Zorro