Discussion :

[infobulle]

Voici mon problème : j'ai un programme VBA sur excel qui tourne parfaitement depuis 3 ans dans les versions excel97 à 2003. Je développe actuellement la version 2 de ce programme qui doit supprimer des modules et en rajouter dans l'auto_open. Or dans Office 2007, il faut que je coche "Accès approuvé au modèle d'objet du projet VBA" pour que le programme puisse manipuler les modules de façon transparente pour l'utilisateur. Il faudrait que je puisse activer cette coche par une commande VBA que je n'arrive pas à trouver. Deuxième question : j'aimerais désactiver les menus des onglets dans Office 2007, la partie du programme qui supprimait les menus d'excel 2003 (et rajoutait un menu personnalisé) ne génére pas de bug sous 2007 mais ne fait rien !! Merci à la personne qui pourra répondre à ces 2 problèmes.

[elect31]

Je pense que l'on est nombreux à avoir ce problème, mais je n'ai jamais vu aucune réponse...

[AlainTech]

Si un programme peut désactiver une sécurité qui est censée l'empêcher de nuire, cette sécurité n'a aucune raison d'exister.

[jojo86]

Pour contourner ce problème, je detecte l'erreur si cette case n'est pas cochée, et j'affiche un UserForm avec une belle mise en page en expliquant à l'utilisateur la marche à suivre pour aller cocher cette case, et pour faciliter le travail à l'utilisateur, j'execute ce USF en Showmodal = False, comme ça il peut faire la manipulation en lisant le message.

[Gandorf]

Bonjour jojo86, bonjour à tous !
Une recherche sur mon soucis et je tombe sur ce (vieux) fil...
Votre solution m'intéresse au plus haut point, si vous êtes encore par là et que vous accepteriez me nous faire part du code de cette méthode, j'en serais ravi...

Le "plus" dans mes besoins serait que le fichier puisse empêcher toute autre macro (du fichier) tant que cette option n'est pas activée...

Merci par avance !

[titival]

Bonjour

Une autre solution qui vaut ce qu'elle vaut !


dans Workbook_Open :

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
  Application.ontime Now + TimeValue("00:00:01"), "SecuriteVBE"
end Sub

Le OnTime est indispensable !


Puis dans un module :
'XL2003

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

'XL2010

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 "%v"
    SendKeys "{ENTER}"
    Application.CommandBars.ExecuteMso "MacroSecurity"
End Sub