Discussion :

[romaincouty]

Bonjour,

En plein déploiement d'Access Runtime 2010 sur les postes utilisateurs de mon entreprise afin qu'ils soient restreints en exploitation, je rencontre des difficultés pour faire disparaître les messages de sécurité à l'exécution de la base.
Toujours dans le souci d'optimiser l'outil, je souhaite que ces messages n'apparaissent plus afin que les utilisateurs aient l'accès direct à la base sans avoir à confirmer qu'ils veulent l'ouvrir.

Ces bases sont dans des dossiers sur un serveur, et les utilisateurs bénéficient de raccourcis copiés sur leur bureau.
En configuration utilisateur, les deux messages sont les suivants :

Premier message avant l'ouverture de la base :


Deuxième message à l'ouverture d'Access :


J'ai essayé bon nombre de clés de registre afin d'approuver ce chemin réseau sans succès, et la seule solution que j'ai trouvé pour enlever le premier message ne me paraît
pas très fiable :
1. Windows > Exécuter > gpedit.msc
2. Configuration Utilisateur > Composants Windows > Gestionnaire de pièces jointes > Liste d'inclusion pour les types de fichiers à risque faible
3. Cocher activer et spécifier le format de la base (.mde)
4. Valider

Avec cette "solution" le premier message n'apparaît plus en effet, mais je ne pense pas que ce soit exempt de tout danger...

Avez-vous des pistes pour me permettre d'enlever ces deux messages qui m'embêtent depuis un petit bout de temps ?

Merci.
Cdlt.

[nico84]

Bonjour,

Il est possible de déclarer un emplacement approuvé en VBA, voici un bout de code valable en 2007 et 2010 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub approuver_Click()
If Not Mode_debug Then On Error GoTo err:
Dim version As String
102 version = Left(Application.version, 2)
104 If version = "12" Or version = "14" Then
106   Call approuve(version)
108   MsgBox "Emplacement approuvé pour MSaccess version " & IIf(version = "12", "2007", "2010"), vbInformation, ""
    Else
112   MsgBox "L'approbation ne concerne que les versions 2007 ou 2010.", vbInformation, ""
    End If
    Exit Sub
err: msgbox "Erreur " & err.Number & "/" & Erl & " dans utilitaires.approuver : " & err.description
End Sub

Par contre je crois que ça ne marche que si l'utilisateur est administrateur de son PC (d'où le if en commentaire qui ne marche pas)

La procédure appelée (dans un module) :

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
'approuve un emplacement pour désactiver l'avis de sécurité - adapté à office 2007 (version=10) et 2010 (version=14)
'ne fonctionne que pour les utilisateurs administrateurs !
'on retrouve l'écriture dans regedit (ou regedt32) : HKEY_CURRENT_USER>SoftWare...
'd'après http://www.developpez.net/forums/d981626/logiciels/microsoft-office/access/runtime/avis-securite-microsoft-access/
Public Sub approuve(version As String)
If Not Mode_debug Then On Error GoTo err:
Dim KEY As String, s As String, loc As String
 
KEY = "HKCU\Software\Microsoft\Office\" & version & ".0\Access\Security\Trusted Locations\"
s = "..."  'emplacement à approuver
loc = KEY & "Location10\"
 
if left(s,2)="\\" then  WriteIntoReg KEY, "AllowNetworkLocations", 1, "REG_DWORD" '1 = autorise les emplacements réseau
WriteIntoReg loc, "AllowSubFolders", 1, "REG_DWORD"  '1 = autorise les sub_folders
WriteIntoReg loc, "Date", Date, "REG_SZ"
WriteIntoReg loc, "Description", "mon p''tit dossier à moi", "REG_SZ"
WriteIntoReg loc, "Path", s, "REG_SZ"
err:
End Sub
 
Public Function WriteIntoReg(ByVal KEY As String, ByVal Value As String, ByVal Data, ByVal DataType As String) As Boolean
Dim WshShell As Object
On Error GoTo WriteIntoReg_Error
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.RegWrite KEY & Value, Data, DataType
    WriteIntoReg = True
    On Error GoTo 0
WriteIntoReg_Exit:
    Set WshShell = Nothing
    Exit Function
WriteIntoReg_Error:
    WriteIntoReg = False
    Resume WriteIntoReg_Exit
End Function

[romaincouty]

Bonjour Nico,

J'avais oublié de préciser...

Je ne connais que très peu le fonctionnement VBA (très peu abordé dans mon cursus) du coup j'ai navigué dans ma base pour accéder au code, sauf que je ne peux pas modifier les modules déjà existants ni en créer de nouveau.

Je ne sais pas si c'est parce que je n'ai pas les droits ou quoi mais ta solution qui me paraît excellente ne peut pas être utilisée de ce fait...

[nico84]

Il est aussi possible de le faire à la main pour chaque utilisateur de chaque PC...

Attention à ne pas oublier AllowNetworkLocations !