Contrôler le paramètre de sécurité

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

Bonjour,

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

Code:

---

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:

---

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

---

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

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:

---

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...)

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