Discussion :

[nefertari]

Bonjour à toutes et à tous,

J'ai une application sous Excel, et je voudrais contrôler le paramètre suivant : "Accès approuvé au modèle d'objets au projet vba" en VBA afin de prévenir l'utilisateur s'il faut le modifier.

Auriez-vous une idée de comment faire ?

D'avance merci

Nefertari

[zenpbb]

Bonjour,

Voici une petite fonction qui renvoit Vrai si l'option est active et Faux sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function isVBEOK() As Boolean
Dim tst As String
On Error GoTo Erreur
    tst = ThisWorkbook.VBProject.VBE.Version
    isVBEOK = True
Exit Function
Erreur:
    isVBEOK = False
End Function

Si l'option n'est pas activée, tu peux alors lancer la commande suivante pour afficher l'interface permettant à l'utilisateur de cocher l'option :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars.FindControl(ID:=3627).Execute

[nefertari]

Merci de ta réponse.

Cependant, est il possible de modifier la valeur sans demander à l'utilisateur ?

D'avance merci de ta réponse.

Nefertari

[zenpbb]

Bonjour,

Le problème, c'est que l'exécution du code VBA s'interrompt tant que la fenêtre contenant la case à cocher reste affichée. Il n'est donc apparemment pas possible de modifier simplement la valeur en cochant la case automatiquement.

Pour ce faire, il faudrait passer la main à un autre processus juste avant d'afficher cette fenêtre.
Voici une proposition, qui semble fonctionner (mais c'est sans garantie qu'elle fonctionne à chaque fois !). A toi de voir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub ActiverAccesVBE()
Dim monScript As String, Fic As String, nf As Integer
Dim WshShell As Object
    'Ecriture du vbs
    monScript = _
        "Set WshShell = WScript.CreateObject(""WScript.Shell"")" & vbCrLf & _
        "WScript.Sleep 500" & vbCrLf & _
        "WshShell.SendKeys ""%(V)"" " & vbCrLf & _
        "WshShell.SendKeys ""{ENTER}"" " & vbCrLf & _
        "WScript.Quit 0"
 
    Fic = ThisWorkbook.Path & "\" & "sendkeys.vbs"
    nf = FreeFile
    Open Fic For Output As #nf
    Print #nf, monScript
    Close #nf
 
    'Exécution du vbs
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run Chr(34) & Fic & Chr(34)
 
    Application.CommandBars.FindControl(ID:=3627).Execute
    Kill Fic
 
End Sub

Le principe, c'est de passer la main à un vbs juste avant d'afficher la fenêtre. Le vbs attend quelques instants, puis envoie les combinaisons de touches qui permettent de cocher/décocher la case et de valider.
A essayer donc et sans doute à améliorer (à bon entendeur...)

[nefertari]

Merci de ton aide, les deux solutions fonctionnent.

Je vais voir laquelle est la plus adapter pour ma problématique.

Par contre, j'ai encore une question comment trouver ID du contrôle qu'on veut modifier ?

Cordialement
Nefertari