Discussion :

[Birdwing91]

Bonjour,
J'ai créé un document Word de publipostage qui s’appuie (contenant des champs texte et images) sur un fichier Excel.
Ce dernier contient les données des champs à mettre à jour ainsi qu'une colonne indiquant les images à intégrer.
j'ai écrit un code vba sous Word qui ouvre le Word de publipostage et le lien excel.

Cependant, dès lors que j'enclenche le vba désormais j'ai une fenêtre de notificatif de sécurité qui s'affiche, cause du lien image !

Une idée pour éviter cela ?

[Souriane]

Bonjour,

Il faut modifier le Registre pour désactiver le message. Mais moi j'utilise plutôt ce code VBA ci-dessous.

Quand on active la macro ça met le message de sécurit à Off s'il était à On et vice-versa la fois suivante.

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
Sub SQLSecurity_Toggle()
'Pour changer la sécurité SQL  / passer de "ON" à "OFF"
Dim WshShell, RegKey, rKeyWord, wVer
Set WshShell = CreateObject("WScript.Shell")
wVer = Application.Version
If wVer < 10 Then 'The security issue relates to
'Word versions greater than 10.0 (Word 2002)
     MsgBox "This macro is for Word 2002 and later!", vbOKOnly, "Wrong Word Version"
     Exit Sub
End If
Start:
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & wVer & "\Word\Options\"
On Error Resume Next 'The registry key does not exist
rKeyWord = WshShell.RegRead(RegKey & "SQLSecurityCheck")
If rKeyWord = "" Then
     WshShell.RegWrite RegKey & "SQLSecurityCheck", 1, "REG_DWORD" 'set it at zero
     GoTo Start: 'and read it again
End If
If rKeyWord = 1 Then
     WshShell.RegWrite RegKey & "SQLSecurityCheck", 0, "REG_DWORD"
     MsgBox "SQL Security checking is switched off", vbInformation, "SQL Check"
 
Else
     WshShell.RegWrite RegKey & "SQLSecurityCheck", 1, "REG_DWORD"
     MsgBox "SQL Security checking is switched on", vbInformation, "SQL Check"
End If
End Sub

Souriane

[yof275965]

Bonjour Souriane,

J'ai essayé votre code mais le popup de sécurité apparait malgré tout.
Après vérification, ce n'est pas cette clé sur laquelle il faut agir. Voici le code qui fonctionne pour moi.
Etonnamment, le popup est désactivé quand la clé est à 1 et non à 0.

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
Sub Security_squeeze()
'Pour changer la sécurité / passer de "ON" à "OFF"
Dim WshShell, RegKey, rKeyWord, wVer
Set WshShell = CreateObject("WScript.Shell")
wVer = Application.Version
If wVer < 10 Then 'The security issue relates to
'Word versions greater than 10.0 (Word 2002)
     MsgBox "This macro is for Word 2002 and later!", vbOKOnly, "Wrong Word Version"
     Exit Sub
End If
Start:
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & wVer & "\Word\Security\"
On Error Resume Next 'The registry key does not exist
rKeyWord = WshShell.RegRead(RegKey & "DisableWarningOnIncludeFieldsUpdate")
If rKeyWord = "" Then
     WshShell.RegWrite RegKey & "DisableWarningOnIncludeFieldsUpdate", 1, "REG_DWORD" 'set it at zero
     GoTo Start: 'and read it again
End If
If rKeyWord = 1 Then
     WshShell.RegWrite RegKey & "DisableWarningOnIncludeFieldsUpdate", 0, "REG_DWORD"
     MsgBox "Security checking is switched on", vbInformation
 
Else
     WshShell.RegWrite RegKey & "DisableWarningOnIncludeFieldsUpdate", 1, "REG_DWORD"
     MsgBox "Security checking is switched off", vbInformation
End If
End Sub

Yof

[Souriane]

J'ai oublié de préciser qu'il s'agit d'une macro "bascule". Je ne sais pas quel mot utiiser. Dire que si l'option était à off il va le mettre à On et vice versa. Donc il se pourrait qu' il faille activer ta macro deux fois pour arriver au résultat qu'on souhaite.

[yof275965]

J'ai oublié de préciser qu'il s'agit d'une macro "bascule". Je ne sais pas quel mot utiiser. Dire que si l'option était à off il va le mettre à On et vice versa. Donc il se pourrait qu' il faille activer ta macro deux fois pour arriver au résultat qu'on souhaite.

Bonjour,
Merci de cette réponse; j'avais vu effectivement qu'il faut lancer la macro alternativement pour passer la clé de 0 à 1 et de 1 à 0.

Par contre, la clé à modifier est la suivante:

Code :

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

1
2
3
4
"HKEY_CURRENT_USER\Software\Microsoft\Office\" & wVer & "\Word\Security\"
On Error Resume Next
'The registry key does not exist
rKeyWord = WshShell.RegRead(RegKey & "DisableWarningOnIncludeFieldsUpdate")

... si on veut shunter le message suivant:


Le code que vous avez mis permet de shunter le message ci-dessous:


La demande de Birdwing91 concernait le premier message.
Bonne journée,

Yof.