Avis de sécurité Microsoft Access

**MisterS** · 30/09/2010, 12h30

Bonjour ,

Je suis sur la finalisation de deux de mes runtime , et je me confronte à un souci après le déploiement sur ma machine virtuelle..

Ce message apparais et je voudrais l'enlever .. (voir pièces jointe)

J'ai bien suivi les instructions que j'ai trouver sur internet , c'est-à-dire :

Avant package : Option > sécurité > autorisée les macro

et sur le poste client :

Mode Sandbox a 2

Si quelqu'un aurait une réponse valide ?

(Ceci se produit aussi sur des bases quasiment vide du Style Base intégré a Access .. )

Cordialement ,

**argyronet** · 30/09/2010, 12h55

Bonjour,

(voir pièces jointe)
Où ?

Argy

**MisterS** · 30/09/2010, 13h00

Ah oui mince ,j'ai du faire une mauvaise manipulation !

Voila elle y es la.

Cordialement ,

**argyronet** · 30/09/2010, 15h52

Commence par définir C:\TIMAC\ comme un emplacement approuvé.

S'il s'agit d'un déploiement, prévois de procéder de façon identique depuis le Registre de Windows (HKCU\....\Security\Trusted Locations)

Argy

**MisterS** · 30/09/2010, 16h01

Ah oui j'ai oublier de précisée que j'avais mis en emplacement approuvé.
(Je l'ai fait coté Développeur - C'est a dire sur mon poste qui lui dispose de la version Access Entière.)

Je Doit également le faire sur les pc user via clef de registre ? je pensais qu'il y aurais une rétroaction.

**MisterS** · 30/09/2010, 16h17

Très bien ciblage de mon problème argyronet !
Je viens de faire les test sur ma VM , et effectivement ce n'est pas rétroactif as l'empaquetage.

il faut créer une clef de registre sur chaque poste manuellement dans :

HKEY_CURRENT_USER > Software > Microsoft > Office > 14.0 > Security > Trusted Locations > et créer une nouvelle location.

Je te remercie donc pour ton efficacité et ta rapidité.

Cordialement ,

**cluster26** · 01/10/2010, 11h27

Bonjour,

Quelle est la syntaxe en VBA qui permet de créer automatiquement une clé de ce type dans la base de registre ?

Merci

**argyronet** · 01/10/2010, 12h50

Bonjour,

Une petite recherche dans ka FAQ t'aurais permis d'abourtir à ta demande

Voici un exemple concrès (Bien que j'eusse préféré user des API mais c'est plus long):

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
41
42
43
44
Sub TestPourVoir()
'REG_SZ
'REG_DWORD
'REG_BINARY
'REG_EXPAND_SZ
 
Const KEY                                              As String = "HKCU\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations\Location0\"
Const VALUE1                                           As String = "AllowSubFolders"
Const VALUE2                                           As String = "Date"
Const VALUE3                                           As String = "Description"
Const VALUE4                                           As String = "Path"
 
Dim blnAllowSubFolder                                  As Boolean
Dim strDate                                            As String
Dim strDescription                                     As String
Dim strPath                                            As String
 
    strDate = Now
    strDescription = "Mon chemin de test pour le déploiement"
    strPath = "C:\Documents and Settings\ambrosinojp\My Documents\MDBTests"
 
    WriteIntoReg KEY, VALUE1, 0, "REG_DWORD"
    WriteIntoReg KEY, VALUE2, strDate, "REG_SZ"
    WriteIntoReg KEY, VALUE3, strDescription, "REG_SZ"
    WriteIntoReg KEY, VALUE4, strPath, "REG_SZ"
    Call Shell(Environ("WINDIR") & "\System32\regedt32.exe", 3)
End Sub
 
Private 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

Argy

**cluster26** · 01/10/2010, 15h52

Merci pour cette très bonne réponse et concrète de +.

cluster26

**jacou** · 05/09/2011, 12h21

Bonjour à tous,

J'ai la chance de tomber sur les posts d'Argy ce matin. Merci encore et encore.

**RobiPMS** · 07/09/2011, 22h25

Bonjour.

Merci à Argyronet pour le code, que je viens d'adapter à une appli et qui fonctionne parfaitement. Mais...
Lorsque la nouvelle clé est écrite, l'éditeur de registre reste ouvert, alors que je voudrais qu'il se ferme automatiquement pour éviter que l'utilisateur lambda ne fasse des bêtises dans l'éditeur!

Y a-t-il une solution?

Merci d'avance.

**argyronet** · 08/09/2011, 11h16

Lorsque la nouvelle clé est écrite, l'éditeur de registre reste ouvert, alors que je voudrais qu'il se ferme automatiquement ...

Eh bien dans ce cas, il y a possibilité d'exploiter les API comme ceci par exemple :

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
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10
 
Private Sub Form_Load()
Const REGISTRY_CLASSNAME                               As String = "RegEdit_RegEdit"
Const REGISTRY_WINDOWSTEXT                             As String = "Éditeur du Registre"
Dim strSystem32Path                                    As String
Dim strRegistryExe                                     As String
Dim lngRegHWnd                                         As Long
 
    strSystem32Path = Environ$("COMSPEC")
    strRegistryExe = Left$(strSystem32Path, InStrRev(strSystem32Path, "\")) & "regedt32.exe"
    Shell strRegistryExe, 1
    DoEvents
    lngRegHWnd = FindWindow(REGISTRY_CLASSNAME, REGISTRY_WINDOWSTEXT)
    If lngRegHWnd Then
        If MsgBox("On ferme le Registre ?", vbQuestion + vbYesNo, "Démo from Argy World") = vbYes Then
            PostMessage lngRegHWnd, WM_CLOSE, ByVal 0&, ByVal 0&
        End If
    End If
End Sub

ou bien ne plus utiliser mon exemple sus nommé "TestPourVoir()" et utiliser les API pour écrire directement dans le Registre via la librairie "advapi32.dll"...

Argy

**fclus** · 08/09/2011, 15h25

Je ne vois pas la pièce jointe mais s'agit-il du message d'avertissement affiché à l'ouverture ?
J'ai le même souci
J'ai ajouté une clé dans la bdr mais ça ne règle pas mon problème !

Une autre idée ?

**MisterS** · 08/09/2011, 15h31

Oui j'ai dû enlever l'image, cause de la limitation en place ^^ !

Mais oui il s'agissait bien d'un message d'erreur avec il me semble : Autoriser et Annuler !

(Cela fait un ans je peu me tromper). Qui était résolu par les clef de registre (moi je le faisais à l'installation de l'application via un batch qui m'installais toute les ddl + clef de registre + la base + liens odbc) mais il semblerais que la méthode de argy marche aussi (je ne l'ai pas tester ma solution suffisais pour le déploiement)

Cordialement ,

**fclus** · 08/09/2011, 15h44

J'ai ajouté une location dans la BDR
J'ai mentionné le chemin d'accès (dossier mappé sur le réseau)
Mais le message apparait toujours
Je dois louper quelque chose !

**MisterS** · 08/09/2011, 15h51

J'ai mentionné le chemin d'accès (dossier mappé sur le réseau)

Les clef de registre doivent être fait localement..
voir : http://www.developpez.net/forums/d98...untime-2010-a/
et http://office.microsoft.com/fr-fr/ac...001122598.aspx

Qui te donnerons peut être plus d'indication. Sinon je laisse les personnes plus apte à te répondre.

**fclus** · 08/09/2011, 16h40

Voici les clés ajoutées :

AllowSubFolder REG_DWORD 0
Date REG_SZ 01/01/2011
Description REG_SZ blablablabla
Path REG_SZ \\data1\commun\access

J'ai oublié quelque chose ?

**argyronet** · 08/09/2011, 17h09

Envoyé par fclus

J'ai oublié quelque chose ?

Oui, de lire convenablement ce qui est écrit... et en l'occurence le \ dans ton Path...

Argy

**fclus** · 08/09/2011, 17h18

Excuse-moi Argy mais je ne saisis pas

Il n'est pas bon mon path ?

J'ai ajouté un \ à la fin au cas où mais ça ne change rien

**RobiPMS** · 08/09/2011, 17h33

Bonjour Argy.
Merci beaucoup pour la réponse concernant la fermeture de l’éditeur. Mais ça ne fonctionne pas correctement. Et je ne connais rien à la manipulation des API. Donc, si j’arrivais à faire fonctionner ta méthode, ça m’arrangerait bien !
Voici ce que j’ai fait :
1. Déclarations
2. Ton exemple TestPourVoir() que je lance avec un bouton.
3. J’ai placé le code que tu proposes pour fermer l’éditeur dans une fonction que j’ai nommée Ferme_Reg.
4. J’appelle cette fonction par un Call Ferme_Reg que j’ai placé dans la fonction WriteIntoReg comme ceci :

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
Private 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
    Call FermeReg
    On Error GoTo 0
    Exit Function
 
WriteIntoReg_Exit:
    Set WshShell = Nothing
    Exit Function
WriteIntoReg_Error:
    WriteIntoReg = False
    Resume WriteIntoReg_Exit
End Function

Résultat :
La clé est bien écrite dans le registre. L'éditeur reste ouvert au premier plan, et quand je rend le focus à Access, j'ai bien le message. Je clique Oui et l'éditeur revient au premier plan. Je dois donc le fermer "à la main".
Je ne vois pas où je me suis planté ...!

Merci d'avance du temps que tu passes à aider de pauvres béotiens comme moi! Ce site (et les grosses têtes qui y contribuent) est une vraie bénédiction pour un autodidacte!
Robi

Avis de sécurité Microsoft Access [AC-2010]

Runtime

Discussions similaires

Partager

Partager