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

[Patrice740]

Bonjour,

Une vieille solution pour afficher un message explicatif si la case n'est pas cochée.
Prévue pour Xl2003, elle fonctionne aussi avec xl2007, il faudrait d'adapter le message aux nouveau menus

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Workbook_Open()
' 08/09/08    Patrice
'
  Dim msg As String
  Dim bln As Boolean
 
  'Teste l'éditeur VBA
  On Error GoTo ErrorHandler
  bln = Application.VBE.MainWindow.Visible
  On Error GoTo 0
 
  Exit Sub
 
 
ErrorHandler:          'Routine de gestion d'erreur.
'------------
'Évalue le numéro d'erreur.
Select Case Err.Description
  Case "L'accès par programme au projet Visual Basic n'est pas fiable" & vbLf
    msg = "Erreur " & Err.Number & " : " & Err.Description & vbCr & vbCr
    msg = msg & "Pour autoriser l'accès au projet Visual Basic : " & vbCr
    msg = msg & "- Menu « Outils » puis « Options... » ;" & vbCr
    msg = msg & "- Onglet « Sécurité » puis « Sécurité des macros... » ;" & vbCr
    msg = msg & "- Onglet  « Éditeurs approuvés » ;" & vbCr
    msg = msg & "- Cocher la case « Faire confiance au projet Visual Basic » ;" & vbCr
    msg = msg & "- Valider ce choix par Ok (2 fois)." & vbCr & vbCr
    msg = msg & "- Fermer Excel et réouvrir " & ThisWorkbook.Name
    'Il semble qu'une faille de sécurité autorise l'accès au projet lorsque le
    'débogueur est lancé ou lorsque ce Handler est exécuté alors que l'option
    '« Faire confiance au projet Visual Basic » n'est pas cochée !!!
    'Pour éviter toute ambiguité il est préférable de cocher cette option
    MsgBox msg, vbCritical
    Resume Next
  Case Else
    MsgBox Err.Description, vbCritical
    Stop
    End     'Resume Next
End Select
 
End Sub