Discussion :

[hartarus]

J'ai lu cette discussion.

Est ce que cette modification peut suivre le document ?

Genre, je l'envoie a un ami qui n'as pas forcément fait cette manipulation sur son ordi est ce qu'il aura la même problème ?

Si cela posera problème sur son ordi, comment faire pour contourner cette modification ?

Est ce que cette modification peut être faite par macro, si j'envoie mon classeur à d'autres connaissances ?

Merci d'avance

[joe.levrai]

Bonjour,

cette propriété est liée au client Excel utilisé, pas au classeur ouvert

l'utilisateur du fichier doit impérativement valider l'option sur son client Excel.

à ma connaissance, impossible de le faire par macro, sécurité oblige (sinon, cette option ne servirait plus à grand chose à mon sens)

[joe.levrai]

Vraiment très moche, mais comme ça j'ai pu cocher la case

regarde si ça fonctionne bien dans ton contexte ... j'ai joué à l'apprenti sorcier là !

testé sur Excel 2010 avec macros activées ... j'ai décoché la case manuellement avant de lancer la procédure

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
Sub Test()
 
' si l'accès au projet n'est pas approuvé
' la récupération de la version va planter !
On Error GoTo CocheCase
bidon = Application.VBE.Version
Exit Sub
 
 
' si ça plante, on simule l'activation
CocheCase:
 
SendKeys "%v"
SendKeys "{ENTER}"
Application.CommandBars.ExecuteMso "MacroSecurity"

[hartarus]

Merci, je teste et je rends réponse

Edit:

Cela ne fait rien d'autre que de me mettre un message :

Erreur de compilation
Membre de méthode ou de données introuvable

à savoir que j'utilise excel 2003 sous windows xp Sp3

[joe.levrai]

L'interface 2003 n'étant pas la même que 2010, c'est normal que ça ne fonctionne pas

ce qui me conforte dans l'idée que c'était la bonne piste (les sendkeys), c'est que j'ai trouvé des exemples similaires sur le forum (ça m'apprendra à chercher dans Excel avant de chercher sur le forum)

regarde ici : http://www.developpez.net/forums/d52...vba-auto_open/

il est proposé une méthode pour 2003, avec la bonne combinaison de touches visiblement

bonne lecture

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SecuriteVBE()
  On error Goto gestError
  i = application.Vbe.version
  exit Sub
 
gestError:
  SendKeys "%OMéd"
  SendKeys "%r"
  SendKeys "{ENTER}"
end Sub

[hartarus]

Malheureusement cela ne fonctionne pas...

en faite je me suis trompé car la version que j'utilise est une version excel 2002 sp3

Je suis dans mon entreprise et les postes sont fournis par l'entreprise.

le sendkey ne fait rien, un son se produit mais pas de message

[joe.levrai]

Je n'ai jamais utilisé la version 2002

on peut essayer à l'aveugle ...

tu peux décrire étape par étape, comment tu fais manuellement pour cocher la case ?
il faut l'ensemble des actions, le nom des menus (et leur position dans la barre de menu) ET des touches utilisées sur le clavier, pour tenter de simuler l'action comme sur les autres codes

[hartarus]

Ok je tente le coup... merci pour ton aide

1) clic sur menu outil (6ème bouton depuis la gauche dans la barre de menu)
2) survol de la souris sur "Marco", sur l'onglet qui s'est ouvert clic sur " Sécurité..."
3) depui là, ouverture d'une fenetre nommée "Sécurité"
4) clic sur l'onglet "sources fiables" (deuxième depuis la gauche)
5) Clic sur le bouton carré pour cocher la croix de l'option "Faire confiance au projet Visual Basic"
6) Clic sur le bouton "OK"

J'éspère avoir été assez précis