Skakaline
Messages postés16Date d'inscriptionjeudi 3 août 2006StatutMembreDernière intervention26 juin 2008
-
12 sept. 2006 à 12:47
Skakaline
Messages postés16Date d'inscriptionjeudi 3 août 2006StatutMembreDernière intervention26 juin 2008
-
13 sept. 2006 à 10:07
Bonjour,
J'ai créer une mavro VBA pour ajouter une reference -si elle n'existe pas.Cette macro doit être utilisée surplusieurs postes et elle ne fonctionne que si la case "Faire confiance au projet VBA" est cochée (dans Macro/Sécurité/Sources fiables).
Quelqu'un peut il eme donner le code pour cocher cette case ?
Voici le code :
Sub AjoutRef()
Dim r As VBIDE.Reference
Dim a As MsoAutomationSecurity
Dim e As Boolean
Dim c As String
a = Application.AutomationSecurity
Application.AutomationSecurity = msoAutomationSecurityLow
c = Refl.Path & "R8ole32.tlb"
For Each r In ThisWorkbook.VBProject.References
If r.Name = "Reflection" Then
e = True
If r.Major <> CLng(VBA.Left(Refl.VersionString, VBA.InStr(1, Refl.VersionString, ".") - 1)) Then
e = False
ThisWorkbook.VBProject.References.Remove r
End If
Exit For
End If
Next
If e = False Then ThisWorkbook.VBProject.References.AddFromFile (c)
Application.AutomationSecurity = a
Skakaline
Messages postés16Date d'inscriptionjeudi 3 août 2006StatutMembreDernière intervention26 juin 2008 13 sept. 2006 à 10:07
Bonjour à tous !
J'ai essayé la signature mais comme elle n'est pas authentifiée par un organisme, ça ne sert à rien...
Pour mon problème, j'ai ajouter la case à cocher dans ma procédure (qui a doublé pour le coup !).
Je laisse la discussion ouverte au cas où quelqu'un trouverez le code.
Julien237
Messages postés883Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention 3 mars 20097 12 sept. 2006 à 13:52
Si un code existe pour cocher cette case, il enlèverais la raison d'être de cette case... Cette sécurité est faite pour prévenir des virus provenant de macros, si une macro malveillante peut désactiver cette option par le code, a quoi sert-elle ?
Maintenant vu les abominations qu'on a parfois chez microsoft (par exemple j'ai une version update de office qui nécessite un produit office microsoft pour s'installer puisqu'il s'agit d'une update, hé ben quand on lui indique l'update comme produit authentifiant de chez microsoft il s'installe sans problèmes...) peut-être existe-t-il qd meme un code ? Mais je serais étonné
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 12 sept. 2006 à 13:56
Il est possible qu'il existe un code pour cela, faut s'étonner de rien chez Microsoft.
Mais de toute façon il ne marcherait pas. Puisque cette case cochée empèche toute execution de code, même si'l existait un code, il ne serait pas exécuté (interdit par la case cochée) et donc ne pourrait pas venir décoché la case.
Seule manip que je vois, passer sur chaque poste pour décocher la case manuellement.
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 13 sept. 2006 à 09:19
Hey, Hey, pas bien réveillé Mortalino, ou plutot déjà endormi vu l'heure de ton post
Ce que demandait Skakaline, c'est justement s'il était possible de faire cette manip automatiquement par le code. A l'heure actuelle il est obligé de faire manuellement (comme tu le suggère) sur chacun des postes.
Pour ce qui est de la signature, je n'ai pas la réponse, je n'ai jamais utiliser, je ne sais ce que ça apporte.
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #